Štejte celice v Excelu VBA

Anonim

V tem članku se bomo naučili, kako šteti in prikazati skupno vrednost prek VBA v programu Microsoft Excel.

S preprosto vajo razumemo, kako in kje lahko štejemo in prikažemo vsote prek VBA v Microsoft Excelu.

V listu 1 imamo podatke, v katerih stolpec A vsebuje kategorijo, stolpec B vsebuje ID konkurenta, stolpec C pa status.

Zdaj želimo pridobiti poročilo v Sheet2 v istem delovnem zvezku, ki kategorično vsebuje podatke o opravljenih in neuspešnih kandidatih.

Sledite spodnjim korakom:-

  • Pritisnite tipko Alt+F11, da odprete stran VBE za pisanje makra.
  • Nato pojdite na zavihek za vstavljanje in vstavite modul.
  • Spodaj omenjeno kodo napišite na stran.
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 Za sledenje, če list 1. Celice (i, 1) = "CTY1" In Sheet1.Cells (i, 3) = "Pass" Potem Countpass1 = Countpass1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY1" In Sheet1.Cells (i, 3) = "Neuspeh" Potem countfail1 = countfail1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" In Sheet1.Cells (i, 3) = "Pass" Potem Countpass2 = Countpass2 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" In Sheet1.Cells (i, 3) = "Fail" Then CountFail2 = CountFail2 + 1 End If Next i 'Msgbox "Pass pass of CTY1," & "" & Countpass1 & "" & "Fail Count of CTY1," & " "& countfail1 & vbCrLf &" Število prehodov CTY2, "&" "& Countpass2 &" "&" Število napak 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 Sheet2.Cells (erow, 1) = "CTY2" List2.Cells (erow, 2) = Countpass2 Sheet2.Cells (erow, 3) = CountFail2 End Sub

• Za zagon makra pritisnite tipko F5.
• Vse podrobnosti bodo posodobljene v Sheet2 v skladu z zahtevami.

To je način za štetje in prikaz vsot prek VBA v programu Microsoft Excel.

Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na spletni strani elektronske pošte