Contare le celle tramite Excel VBA

Anonim

In questo articolo, impareremo come contare e visualizzare il totale tramite VBA in Microsoft Excel.

Capiamo 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 del 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 passati e falliti, categoricamente.

Segui i passaggi indicati di seguito: -

  • Premi il tasto Alt+F11 per aprire la pagina VBE per scrivere la macro.
  • Quindi vai su Inserisci scheda e inserisci un modulo.
  • Scrivi il codice indicato di seguito 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 "Conteggio superato di CTY1" & " " & Countpass1 & " " & "Conteggio fallito di CTY1" & " " & countfail1 & vbCrLf & "Conteggio superato di CTY2" & " " & Countpass2 & " " & "Conteggio fallito di CTY2" & " " & CountFail2 Sheet2.Range("A2:C500").Clear Sheet2.Cells( erow, 1) = "CTY1" Foglio2.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 ti è piaciuto il nostro blog, condividilo con i tuoi amici su Facebook. E puoi anche seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare, completare o innovare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica