Brojanje ćelija kroz Excel VBA

Anonim

U ovom ćemo članku naučiti kako računati i prikazati ukupan iznos kroz VBA u programu Microsoft Excel.

Shvatimo jednostavnom vježbom kako i gdje možemo brojati i prikazivati ​​ukupne vrijednosti kroz VBA u programu Microsoft Excel.

U Tablici 1 imamo podatke u kojima stupac A sadrži kategoriju, stupac B sadrži ID konkurenta, a stupac C status.

Sada želimo kategorički dohvatiti izvješće u Sheet2 u istoj radnoj knjizi koje sadrži podatke o položenim i neuspjelim kandidatima.

Slijedite dolje navedene korake:-

  • Pritisnite tipke Alt+F11 za otvaranje VBE stranice za pisanje makronaredbe.
  • Zatim idite na umetanje kartice i umetnite modul.
  • Napišite ispod navedeni kod na stranicu.
Sub CountStatus () Dim Lastrow As Long, Countpass1 As Long, countfail1 As Long Dim erow As Long, Countpass2 As Long, CountFail2 As Long Lastrow = List1.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 Za i = 2 do Lastrow Ako list1.Cells (i, 1) = "CTY1" I 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" Zatim Countpass2 = Countpass2 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" I Sheet1.Cells (i, 3) = "Fail" Then CountFail2 = CountFail2 + 1 End If Next i 'Msgbox "Broj prolaza CTY1," & "" & Countpass1 & "" & "Broj neuspjeha CTY1," & " "& countfail1 & vbCrLf &" Broj prolaza CTY2, "&" "& Countpass2 &" "&" Broj neuspjeha CTY2, "&" "& CountFail2 Sheet2.Range (" A2: C500 "). Clear Sheet2.Cells ( erow, 1) = "CTY1" List2.Cells (erow, 2) = Countpass1 Sheet2.Cells (erow, 3) = countfail1 erow = erow + 1 List2.Cells (erow, 1) = "CTY2" List2.Cells (erow, 2) = Countpass2 Sheet2.Cells (erow, 3) = Krajnja podbroj CountFail2

• Za pokretanje makronaredbe pritisnite tipku F5.
• Svi detalji bit će ažurirani u Sheet2 prema zahtjevu.

Ovo je način brojanja i prikaza ukupnih zbroja kroz VBA u programu Microsoft Excel.

Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte