V tomto článku sa naučíme počítať a zobrazovať celkom prostredníctvom VBA v programe Microsoft Excel.
Pochopme jednoduchým cvičením, ako a kde môžeme počítať a zobrazovať súčty prostredníctvom VBA v programe Microsoft Excel.
V liste 1 máme údaje, v ktorých stĺpec A obsahuje kategóriu, stĺpec B obsahuje ID konkurenta a stĺpec C obsahuje stav.
Teraz chceme získať prehľad v hárku 2 v tom istom zošite, ktorý obsahuje údaje o úspešných a neúspešných kandidátoch, kategoricky.
Postupujte podľa nižšie uvedených krokov:-
- Stlačením klávesov Alt+F11 otvoríte stránku VBE na napísanie makra.
- Potom prejdite na kartu Vložiť a vložte modul.
- Napíšte nižšie uvedený kód na stránku.
Sub CountStatus () Dim Lastrow As Long, Countpass1 As Long, countfail1 As Long Dimowow 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" a 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" Then Countpass2 = Countpass2 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" And Sheet1.Cells (i, 3) = "Fail" Then CountFail2 = CountFail2 + 1 End If Next i 'Msgbox "Pass count of CTY1," & "" & Countpass1 & "" & "Fail Count of CTY1," & " "& countfail1 & vbCrLf &" Počet prechodov CTY2, "&" "& Countpass2 &" "&" Počet zlyhaní CTY2, "&" "& CountFail2 Sheet2.Range (" A2: C500 "). Vymazať Sheet2.Bunky ( erow, 1) = "CTY1" List2.Články (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
• Makro spustíte stlačením klávesu F5.
• Všetky podrobnosti budú aktualizované v hárku 2 podľa požiadavky.
Toto je spôsob, ako počítať a zobrazovať súčty prostredníctvom VBA v programe Microsoft Excel.
Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.
Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku