În acest articol, vom învăța cum să numărăm și să afișăm totalul prin VBA în Microsoft Excel.
Să înțelegem cu un exercițiu simplu, cum și unde putem număra și afișa totaluri prin VBA în Microsoft Excel.
Avem date în Foaia 1 în care coloana A conține categorie, coloana B conține Id-ul concurentului și coloana C conține starea.
Acum, dorim să preluăm un raport în Sheet2 în același registru de lucru care conține datele candidaților trecuți și eșuați, categoric.
Urmați pașii de mai jos: -
- Apăsați tasta Alt + F11 pentru a deschide pagina VBE pentru a scrie macro-ul.
- Apoi accesați fila de inserare și introduceți un modul.
- Scrieți mai jos codul menționat în pagină.
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" Și Sheet1.Cells (i, 3) = "Pass" Apoi Countpass1 = Countpass1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY1" Și Sheet1.Cells (i, 3) = "Fail" Apoi countfail1 = countfail1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" Și Sheet1.Cells (i, 3) = "Pass" Apoi Countpass2 = Countpass2 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" Și Sheet1.Cells (i, 3) = "Fail" Apoi CountFail2 = CountFail2 + 1 End If Next i 'Msgbox "Numărul de treceri CTY1," & "" & Countpass1 & "" & "Numărul de eșecuri al CTY1," & " "& countfail1 & vbCrLf &" Numărul de treceri CTY2, "&" "& Countpass2 &" "&" Numărul de eșecuri al CTY2, "&" "& CountFail2 Sheet2.Range (" A2: C500 "). Șterge 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
• Pentru a rula macro-ul, apăsați tasta F5.
• Toate detaliile vor fi actualizate în Sheet2 conform cerințelor.
Acesta este modul de numărare și afișare a totalelor prin VBA în Microsoft Excel.
Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrieți-ne pe site-ul de e-mail