I denne artikkelen skal vi lære å telle og vise totalt gjennom VBA i Microsoft Excel.
La oss forstå med en enkel øvelse hvordan og hvor vi kan telle og vise totaler gjennom VBA i Microsoft Excel.
Vi har data i ark 1 der kolonne A inneholder kategori, kolonne B inneholder konkurrent -ID og kolonne C inneholder status.
Nå ønsker vi å hente en rapport i Sheet2 i den samme arbeidsboken som inneholder data fra bestått og mislykket kandidater, kategorisk.
Følg trinnene nedenfor:-
- Trykk på tasten Alt+F11 for å åpne VBE -siden for å skrive makroen.
- Gå deretter til Sett inn -fanen og sett inn en modul.
- Skriv koden nedenfor 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 .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" og Sheet1.Cells (i, 3) = "Pass" Deretter Countpass1 = Countpass1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY1" Og Sheet1.Cells (i, 3) = "Mislykkes" Da 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" 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ått antall CTY2, "&" "& Countpass2 &" "&" Mislykket telling av CTY2, "&" "& CountFail2 Sheet2.Range (" A2: C500 "). Fjern ark2.Celler ( 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
• Trykk på F5 for å kjøre makroen.
• Alle detaljer blir oppdatert i Sheet2 i henhold til kravet.
Dette er måten å telle og vise totaler på via VBA i Microsoft Excel.
Hvis du likte bloggene våre, del den med vennene dine på Facebook. Og du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre, utfylle eller innovere arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post