_ 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.

image 1

image 2

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.

image 3

Questo è il modo per contare e visualizzare i totali tramite VBA in Microsoft Excel.

image 48

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]_