I den här artikeln kommer vi att lära oss hur man räknar och visar totalt genom VBA i Microsoft Excel.
Låt oss förstå med en enkel övning hur och var vi kan räkna och visa totalsumma via VBA i Microsoft Excel.
Vi har data i blad 1 där kolumn A innehåller kategori, kolumn B innehåller konkurrent -id och kolumn C innehåller status.
Nu vill vi hämta en rapport i Sheet2 i samma arbetsbok som innehåller data från godkända och misslyckade kandidater, kategoriskt.
Följ nedanstående steg:-
- Tryck på tangenten Alt+F11 för att öppna VBE -sidan för att skriva makrot.
- Gå sedan till infoga fliken och sätt in en modul.
- Skriv nedan nämnda kod på sidan.
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" och Sheet1.Cells (i, 3) = "Pass" Sedan Countpass1 = Countpass1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY1" Och Sheet1.Cells (i, 3) = "Misslyckas" Då 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" Och Sheet1.Cells (i, 3) = "Misslyckad" Sedan CountFail2 = CountFail2 + 1 Avsluta om nästa i 'Msgbox "Godkänt antal CTY1," & "" & Countpass1 & "" & "Misslyckat antal CTY1," & " "& countfail1 & vbCrLf &" Godkänt antal CTY2, "&" "& Countpass2 &" "&" Misslyckat antal CTY2, "&" "& CountFail2 Sheet2.Range (" A2: C500 "). Rensa 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
• För att köra makrot, tryck på knappen F5.
• Alla detaljer uppdateras i Sheet2 enligt kravet.
Detta är sättet att räkna och visa totaler via VBA i Microsoft Excel.
Om du gillade våra bloggar, dela den med dina vänner på Facebook. Och du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra, komplettera eller förnya vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen