Contagem de VBA - Contar valores numéricos usando a função de contagem no Excel VBA

Função de contagem no VBA Excel

No VBA Count a função é usada para contar quantos números de células têm valores, precisamos lembrar que as células que têm números ou texto entre aspas duplas ou aquelas células cujos valores são digitados diretamente são contadas, essas células que possuem os dados aleatórios que não podem ser traduzidos pelo Excel não são contados.

No VBA, COUNT é uma função de planilha que pode ser aplicada por meio da classe de função de planilha. Não é uma função embutida. A função VBA COUNT pode contar todos os valores numéricos da faixa de valores fornecida.

Neste artigo, mostraremos como usar a função COUNT no VBA.

Exemplos de função de contagem VBA

Vamos dar alguns exemplos práticos da função de contagem do VBA para entender seu funcionamento.

Exemplo de contagem de VBA # 1

Deixe escrever o código por conta própria para aplicar esta função COUNT no Excel VBA.

Etapa 1: Inicie a macro iniciando o procedimento Sub.

Código:

Sub Count_Example1 () End Sub

Passo 2: Agora, vamos armazenar o resultado da função COUNT na célula C2. Portanto, nosso código deve ser como “Faixa (“ C2 ”). Valor =

Código:

Sub Count_Example1 () Range ("C2"). Value = End Sub

Etapa 3: Como não é uma função incorporada do VBA, precisamos aplicá-la por meio da classe Worksheet Function. Portanto, acesse através da classe de função da planilha.

Código:

Sub Count_Example1 () Intervalo ("C2"). Value = Worksheetfunction.Count (End Sub

Etapa 4: agora forneça o intervalo de A1 a A7.

Código:

Sub Count_Example1 () Range ("C2"). Value = WorksheetFunction.Count (Range ("A1: A7")) End Sub

Ok, essas são três etapas simples para chegar ao resultado.

Agora execute o código para ver o resultado na célula C2.

Como de costume, obtivemos o resultado como 3, semelhante ao obtido quando aplicamos a função VBA COUNT em uma planilha.

Se observarmos a barra de fórmula, não temos a fórmula. Em vez disso, apenas obtivemos o resultado da fórmula. Para aplicar a fórmula à célula C2, precisamos alterar nosso código. Abaixo está o código para aplicar a fórmula.

Código:

Sub Count_Example1 () Range ("C2"). Value = "= Count (A1: A7)" End Sub

Execute este código VBA usando a tecla F5 ou manualmente. Em seguida, isso aplicará a fórmula à célula C2.

Exemplo de contagem de VBA # 2

Agora, veja mais um exemplo com a função COUNT. Para este exemplo, veja os dados abaixo.

Temos alguns valores numéricos e não numéricos de A1 a A11. Agora vou aplicar o código abaixo para contar os valores numéricos do intervalo A1 a A11.

Código:

Sub Count_Example2 () Range ("C2"). Value = "= Count (A1: A11)" End Sub

Quando executamos o código acima manualmente ou usando a tecla F5, obtemos o resultado como 5.

No entanto, quando examinamos os dados de A1 a A11, temos valores numéricos nas células A1, A2, A3, A4, A5, A7 e A11. Portanto, no total, temos valores numéricos em 7 células, mas a fórmula retornou o resultado como apenas 5.

A razão para isso é que, quando examinamos de perto cada célula nas células A5 e A7, os valores são armazenados como texto, não como números. Portanto, a função COUNT retornou o resultado como apenas 5 porque trata as células formatadas ou armazenadas como texto como valores não numéricos e ignora a contagem numérica.

Assim, podemos usar a função COUNT no excel como parte de planilhas e funções VBA para contar os valores numéricos da lista.

Artigos interessantes...