Conte cellule attraverso Excel VBA
_ In questo articolo, impareremo come contare e visualizzare il totale tramite VBA in Microsoft Excel._
Comprendiamo con un semplice esercizio come e dove possiamo contare e visualizzare i totali tramite VBA in Microsoft Excel. Abbiamo dati nel foglio 1 in cui la colonna A contiene la categoria, la colonna B contiene l’ID concorrente e la colonna C contiene lo stato.
Ora, vogliamo recuperare un report in Sheet2 nella stessa cartella di lavoro che contiene i dati dei candidati superati e non riusciti, in modo categorico.
Segui i passaggi indicati di seguito: –
-
Premere il tasto Alt + F11 per aprire la pagina VBE per scrivere la macro.
-
Quindi vai su Inserisci scheda e inserisci un modulo.
-
Scrivi sotto il codice indicato nella pagina.
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" And 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" 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
-
Per eseguire la macro, premere il tasto F5.
-
Tutti i dettagli verranno aggiornati in Sheet2 secondo il requisito.
Questo è il modo per contare e visualizzare i totali tramite VBA in Microsoft Excel.
Se i nostri blog ti sono piaciuti, condividilo con i tuoi amici su Facebook. E puoi anche seguirci su Twitter. _ Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare, integrare o innovare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]_