Tässä artikkelissa aiomme oppia laskemaan ja näyttämään kokonaismäärän VBA: n avulla Microsoft Excelissä.
Ymmärrämme yksinkertaisella harjoituksella, miten ja missä voimme laskea ja näyttää kokonaissummat VBA: n avulla Microsoft Excelissä.
Taulukossa 1 on tietoja, joissa sarake A sisältää luokan, sarake B sisältää kilpailijan tunnuksen ja sarake C sisältää tilan.
Nyt haluamme hakea raportin taulukosta 2 samasta työkirjasta, joka sisältää kategorisesti hyväksyttyjen ja epäonnistuneiden hakijoiden tiedot.
Noudata alla annettuja ohjeita:-
- Avaa näppäimistö Alt+F11 avataksesi VBE -sivun kirjoittaaksesi makron.
- Siirry sitten välilehteen ja lisää moduuli.
- Kirjoita alla mainittu koodi sivulle.
Sub CountStatus () Dim Lastrow niin kauan, Countpass1 niin kauan, countfail1 Niin kauan Dim erow Long, Countpass2 niin kauan, CountFail2 Long Longrow = Sheet1.Cells (Rows.Count, 1). End (xlUp). Row erow = Sheet2 .Solut (rivit, luku, 1). Loppu (xlUp). Siirtymä (1, 0). = "CTY1" ja arkki1.Solut (i, 3) = "Hyväksytty" Sitten Laskenta1 = Countpass1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY1" Ja Sheet1.Cells (i, 3) = "Fail" Sitten countfail1 = countfail1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" ja Sheet1.Cells (i, 3) = "Pass" Sitten Countpass2 = Countpass2 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" Ja Sheet1.Cells (i, 3) = "Fail" Sitten CountFail2 = CountFail2 + 1 End If Next i 'Msgbox "CTY1," & "" & Countpass1 & "" & "CTY1," & " "& countfail1 & vbCrLf &" CTY2: n, "&" "& Countpass2 &" "&" CTY2: n, "&" "& CountFail2 Sheet2.Range (" A2: C500 ") virheet." Clear Sheet2.Cells ( kulma, 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 (kulma, 3) = CountFail2 End Sub
• Suorita makro painamalla näppäintä F5.
• Kaikki tiedot päivitetään taulukossa 2 vaatimusten mukaisesti.
Tämä on tapa laskea ja näyttää kokonaissummat VBA: n kautta Microsoft Excelissä.
Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse