V tomto článku se naučíme počítat a zobrazovat celkem prostřednictvím VBA v aplikaci Microsoft Excel.
Pojďme si jednoduchým cvičením porozumět, jak a kde můžeme počítat a zobrazovat součty prostřednictvím VBA v Microsoft Excelu.
V listu 1 máme data, ve kterých sloupec A obsahuje kategorii, sloupec B obsahuje ID konkurenta a sloupec C obsahuje stav.
Nyní chceme načíst sestavu v listu 2 ve stejném sešitu, který obsahuje data předaných a neúspěšných kandidátů, kategoricky.
Postupujte podle níže uvedených kroků:-
- Stisknutím klávesy Alt+F11 otevřete stránku VBE pro zápis makra.
- Poté přejděte na kartu Vložit a vložte modul.
- Na stránku napište níže uvedený kód.
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" 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 &" Pass count of CTY2, "&" "& Countpass2 &" "&" Fail Count of 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" Sheet2.Cells (erow, 2) = Countpass2 Sheet2.Cells (erow, 3) = CountFail2 End Sub
• Makro spustíte stisknutím klávesy F5.
• Všechny podrobnosti budou aktualizovány v listu 2 podle požadavku.
Toto je způsob, jak počítat a zobrazovat součty prostřednictvím VBA v aplikaci Microsoft Excel.
Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám na e -mail