Contar células por meio do Excel VBA

Anonim

Neste artigo, aprenderemos como contar e exibir o total por meio do VBA no Microsoft Excel.

Vamos entender, com um exercício simples, como e onde podemos contar e exibir totais por meio do VBA no Microsoft Excel.

Temos dados na Folha 1 em que a coluna A contém a categoria, a coluna B contém o ID do concorrente e a coluna C contém o status.

Agora, queremos recuperar um relatório na Planilha2 na mesma pasta de trabalho que contém os dados de candidatos aprovados e reprovados, categoricamente.

Siga as etapas abaixo: -

  • Pressione a tecla Alt + F11 para abrir a página VBE para escrever a macro.
  • Em seguida, vá para inserir guia e insira um módulo.
  • Escreva o código mencionado abaixo na página.
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 Para i = 2 Para 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 "Contagem de aprovação de CTY1," & "" & Countpass1 & "" & "Contagem de falha de CTY1," & " "& countfail1 & vbCrLf &" Contagem de aprovação de CTY2, "&" "& Countpass2 &" "&" Contagem de falha de CTY2, "&" "& CountFail2 Sheet2.Range (" A2: C500 "). Limpe 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

• Para executar a macro, pressione a tecla F5.
• Todos os detalhes serão atualizados na Folha 2 de acordo com o requisito.

Esta é a maneira de contar e exibir totais por meio do VBA no Microsoft Excel.

Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos no site de e-mail