In dit artikel gaan we leren hoe u het totaal kunt tellen en weergeven via VBA in Microsoft Excel.
Laten we met een eenvoudige oefening begrijpen hoe en waar we totalen kunnen tellen en weergeven via VBA in Microsoft Excel.
We hebben gegevens in Blad 1 waarin kolom A categorie bevat, kolom B Concurrent Id en kolom C status bevat.
Nu willen we een rapport ophalen in Blad2 in dezelfde werkmap dat categorisch de gegevens bevat van geslaagde en mislukte kandidaten.
Volg de onderstaande stappen: -
- Druk op de toets Alt+F11 om de VBE-pagina te openen om de macro te schrijven.
- Ga dan naar tabblad invoegen en voeg een module in.
- Schrijf onderstaande code op de pagina.
Sub CountStatus() Dim Laatste rij zo lang, Countpass1 Zo lang, countfail1 Zo lang Dim erow Zo lang, Countpass2 Zo lang, CountFail2 Zo lang Laatste rij = Blad1.Cellen(Rijen.Aantal, 1).End(xlUp).Rij = Blad2 .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row Countpass1 = 0 countfail1 = 0 Countpass2 = 0 CountFail2 = 0 For i = 2 To Lastrow If Sheet1.Cells(i, 1) = "CTY1" And Sheet1.Cells(i, 3) = "Pass" Then Countpass1 = Countpass1 + 1 ElseIf Sheet1.Cells(i, 1) = "CTY1" And Sheet1.Cells(i, 3) = "Fail" Then countfail1 = countfail1 + 1 ElseIf Sheet1.Cells(i, 1) = "CTY2" And Sheet1.Cells(i, 3) = "Pass" Then Countpass2 = Countpass2 + 1 ElseIf Sheet1.Cells(i, 1) = "CTY2" En Sheet1.Cells(i, 3) = "Fail" Then CountFail2 = CountFail2 + 1 End If Next i 'Msgbox "Pass count of CTY1," & " " & Countpass1 & " " & "Fail Count of CTY1," & " " & countfail1 & vbCrLf & "Pass count of CTY2," & " " & Countpass2 & " " & "Fail count of CTY2," & " " & CountFail2 Sheet2.Range("A2:C500").Clear Sheet2.Cells( erw, 1) = "CTY1" Blad2.Cellen(erow, 2) = Countpass1 Sheet2.Cells(erow, 3) = countfail1 erow = erow + 1 Sheet2.Cells(erow, 1) = "CTY2" Sheet2.Cells(erow, 2) = Countpass2 Sheet2.Cells (erow, 3) = CountFail2 End Sub
• Om de macro uit te voeren, drukt u op de toets F5.
• Alle details worden bijgewerkt in Blad2 volgens de vereiste.
Dit is de manier om totalen te tellen en weer te geven via VBA in Microsoft Excel.
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite