I denne artikel vil vi lære at tælle og vise total gennem VBA i Microsoft Excel.
Lad os forstå med en simpel øvelse, hvordan og hvor vi kan tælle og vise totaler gennem VBA i Microsoft Excel.
Vi har data i ark 1, hvor kolonne A indeholder kategori, kolonne B indeholder konkurrent -id og kolonne C indeholder status.
Nu ønsker vi at hente en rapport i Sheet2 i den samme projektmappe, der kategorisk indeholder data fra beståede og mislykkede kandidater.
Følg nedenstående trin:-
- Tryk på tasten Alt+F11 for at åbne VBE -siden for at skrive makroen.
- Gå derefter til fanen Indsæt og indsæt et modul.
- Skriv nedenstående kode på siden.
Sub CountStatus () Dim Lastrow As Long, Countpass1 As Long, countfail1 As Long Dim erow As Long, Countpass2 As Long, CountFail2 As Long Lastrow = Sheet1.Cells (Rows.Count, 1). End (xlUp) .Row erow = Sheet2 .Celler (Rækker.Tælling, 1) .Slut (xlUp) .Offset (1, 0) .Række Countpass1 = 0 countfail1 = 0 Countpass2 = 0 CountFail2 = 0 For i = 2 til Lastrow If Sheet1.Cells (i, 1) = "CTY1" og Sheet1.Cells (i, 3) = "Pass" Herefter Countpass1 = Countpass1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY1" og Sheet1.Cells (i, 3) = "Fail" countfail1 = countfail1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" Og Sheet1.Cells (i, 3) = "Pass" Herefter Countpass2 = Countpass2 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" Og Sheet1.Cells (i, 3) = "Fail" Så CountFail2 = CountFail2 + 1 End If Next i 'Msgbox "Pass count of CTY1," & "" & Countpass1 & "" & "Fail Count of CTY1," & " "& countfail1 & vbCrLf &" Bestået optælling af CTY2, "&" "& Countpass2 &" "&" Fail Count af CTY2, "&" "& CountFail2 Sheet2.Range (" A2: C500 "). Ryd Sheet2.Cells ( erow, 1) = "CTY1" Sheet2.Cells (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
• Tryk på tasten F5 for at køre makroen.
• Alle detaljer opdateres i Sheet2 i henhold til kravet.
Dette er måden at tælle og vise totaler på via VBA i Microsoft Excel.
Hvis du kunne lide vores blogs, kan du dele den med dine venner på Facebook. Og også du kan følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre, supplere eller innovere vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet