Selles artiklis õpime, kuidas kokku lugeda ja kuvada Microsoft Excelis VBA kaudu.
Mõistame lihtsa harjutusega, kuidas ja kus saame Microsoft Excelis VBA kaudu kokku lugeda ja kuvada kogusummasid.
Lehel 1 on andmed, mille veerg A sisaldab kategooriat, veerg B sisaldab konkurendi ID ja veerg C sisaldab olekut.
Nüüd tahame hankida aruande lehelt 2 samasse töövihikusse, mis sisaldab kategooriliselt läbitud ja ebaõnnestunud kandidaatide andmeid.
Järgige allpool toodud samme:-
- Makro kirjutamiseks vajutage klahvi Alt+F11, et avada VBE -leht.
- Seejärel minge vahekaardi sisestamiseks ja sisestage moodul.
- Kirjutage lehele allpool nimetatud kood.
Sub CountStatus () Dim Lastrow nii pikk, Countpass1 nii pikk, countfail1 Nii pikk Dim erow nii pikk, Countpass2 nii pikk, CountFail2 As Long Lastrow = Sheet1.Cells (Rows.Count, 1). End (xlUp). Rida erow = Sheet2 . Lahtrid (Rows.Count, 1). End (xlUp). Offset (1, 0). Rida Countpass1 = 0 countfail1 = 0 Countpass2 = 0 CountFail2 = 0 For i = 2 Lastrow If Sheet1.Cells (i, 1) = "CTY1" ja leht1. Lahtrid (i, 3) = "Pass" Siis Countpass1 = Countpass1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY1" Ja Sheet1.Cells (i, 3) = "Fail" Siis countfail1 = countfail1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" Ja Sheet1.Cells (i, 3) = "Pass" Siis Countpass2 = Countpass2 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" Ja Sheet1.Cells (i, 3) = "Fail" Siis CountFail2 = CountFail2 + 1 End If Next i 'Msgbox "CTY1," & "" & Countpass1 & "" & "CTY1 ebaõnnestumiste arv", " "& countfail1 & vbCrLf &" CTY2 passide arv, "&" "& Countpass2 &" "&" CTY2 ebaõnnestumiste arv, "&" "& CountFail2 Sheet2.Range (" A2: C500 "). Clear 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
• Makro käivitamiseks vajutage klahvi F5.
• Kõik üksikasjad värskendatakse lehel 2 vastavalt nõudele.
Nii saate kogusummasid loendada ja kuvada Microsoft Excelis VBA kaudu.
Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile meilisaidile