VBA IsNumeric - Como usar o Excel VBA IsNumeric?

Índice:

Anonim

VBA IsNumeric

IsNumber, uma função do Excel, é usada para identificar se o conteúdo da célula é um número ou não. Um valor numérico pode ser um valor inteiro ou inteiro. Uma função IsNumeric também pode ser executada no VBA. No VBA, isso está disponível com o nome " IsNumeric ". IsNumeric funciona da mesma maneira que IsNumber. Ele analisa o valor da célula e retorna a resposta, seja um número ou não.

IsNumeric considera apenas Booleano, que fornece apenas resultados na forma de VERDADEIRO e FALSO.

Sintaxe de IsNumeric no Excel VBA

O VBA IsNumeric possui a seguinte sintaxe no VBA:

Como usar o Excel VBA IsNumeric?

Vamos aprender como usar um VBA IsNumeric com alguns exemplos no Excel.

Você pode fazer o download deste modelo VBA IsNumeric Excel aqui - Modelo VBA IsNumeric Excel

VBA IsNumeric - Exemplo # 1

Vamos ver um exemplo fácil de onde selecionaremos uma célula com qualquer conteúdo e, em uma célula separada, veremos se o conteúdo da célula é um número ou não.

Etapa 1: Para esta abertura, um novo módulo na janela VBA na guia do menu Inserir, como mostrado abaixo.

Etapa 2: Escreva uma subcategoria no nome de uma função executada ou em qualquer outro nome, como mostrado abaixo.

Código:

 Sub VBA_Isnumeric1 () End Sub

Etapa 3: Agora usaremos o loop If-Else para essa condição completa. Para isso, abra e feche o suporte If, ​​como mostrado abaixo.

Código:

 Sub VBA_Isnumeric1 () Se final Se final Sub

Etapa 4: Agora, em Se escreva, selecione a função IsNumeric e selecione qualquer célula Range a partir da qual analisaremos o conteúdo. Aqui nós selecionamos a célula A1 como TRUE.

Código:

 Sub VBA_Isnumeric1 () Se IsNumeric (Intervalo ("A1")) = Verdadeiro e Terminar Se Final Sub

Etapa 5: se o valor da célula na célula A1 for VERDADEIRO, significa que é um número, então podemos escolher escrever qualquer frase na célula B1 que diga "É um número" ou colocar qualquer texto conforme sua escolha.

Código:

 Sub VBA_Isnumeric1 () Se IsNumeric (Intervalo ("A1")) = Verdadeiro Intervalo ("B1") = "É um Número" End If End Sub

Etapa 6: Agora, na linha de código Else, considere escrever o que poderíamos ver quando a condição IF não funcionar. Estamos selecionando a célula B1, na qual veremos a instrução de saída da célula A1 como "Não é um número", como mostrado abaixo.

Código:

 Sub VBA_Isnumeric1 () Se IsNumeric (Intervalo ("A1")) = Verdadeiro Intervalo ("B1") = "É um número" Else Range ("B1") = "Não é um número" End If End Sub

Etapa 7: Feito isso, compile e execute o código completo. Como podemos ver na captura de tela abaixo para o conteúdo da célula A1, obtivemos a declaração como " É um número " na célula B1.

Etapa 8: Agora, substitua 10 na célula A1 por um texto como " Teste " e veja o que obtemos.

Etapa 9: Agora, execute novamente o código completo.

Como podemos ver na captura de tela acima, para o conteúdo da célula A1, obtivemos a declaração como "Não é um número" para o conteúdo "Teste", o que significa que a célula A1 não possui um número.

VBA IsNumeric - Exemplo # 2

Há outra maneira de adicionar IsNumeric. De longe, todos sabemos que a função booleana é usada para TRUE / FALSE com base no que alimentamos e definimos a condição. Aqui usaremos Boolean para calcular IsNumeric para qualquer conteúdo da célula.

Etapa 1: Escreva uma subcategoria no nome de uma função executada, como mostrado abaixo.

Código:

 Sub VBA_IsNumeric2 () End Sub

Etapa 2: Agora defina uma dimensão "DIM" como A e atribua-a a Double. Também podemos atribuí-lo como Inteiro ou Longo. Mas isso consideraria apenas números inteiros e textos / números longos. Double é usado onde esperamos obter números em formas decimais.

Código:

 Sub VBA_IsNumeric2 () Dim A como extremidade dupla sub

Etapa 3: Agora defina mais uma dimensão “DIM” como X. E atribua-a como booleano. Podemos considerar qualquer palavra, nome ou alfabeto para definir dimensões no VBA.

Código:

 Sub VBA_IsNumeric2 () Dim A como duplo Dim X como booleano End Sub

Etapa 4: Agora, para Dim A duplo, primeiro atribua o valor como 10, que é um número inteiro.

Código:

 Sub VBA_IsNumeric2 () Dim A como duplo Dim X como booleano A = 10 End Sub

Etapa 5: agora para o booleano X, use a função IsNumeric e atribua o duplo A definido entre colchetes de IsNumeric. Ao fazer isso, o IsNumeric buscará o valor armazenado na Dim A e analisará se esse valor é um número ou não.

Código:

 Sub VBA_IsNumeric2 () Dim A como duplo Dim X Como booleano A = 10 X = IsNumeric (A) End Sub

Etapa 6: para obter a resposta de uma análise feita pela Isnumeric, atribuiremos a uma caixa de mensagem onde veremos o resultado.

Código:

 Sub VBA_IsNumeric2 () Dim A como duplo Dim X como booleano A = 10 X = IsNumeric (A) MsgBox "A expressão (10) é numérica ou não:" & X, vbInformation, "VBA IsNumeric Function" End Sub

Etapa 7: Feito isso, compile e execute o código.

Como podemos ver na caixa de diálogo acima, a expressão (10) é um valor numérico VERDADEIRO.

Etapa 8: Agora vamos alterar o valor e colocar algum valor decimal em IsNumeric, como mostrado abaixo, e ver qual saída obtemos. Aqui temos que alterar o valor de A como 10.12 e atualizar a caixa de mensagem com a expressão (10.12).

Código:

 Sub VBA_IsNumeric2 () Dim A como duplo Dim X como booleano A = 10.12 X = IsNumeric (A) MsgBox "A expressão (10.12) é numérica ou não:" & X, vbInformation, "VBA IsNumeric Function" End Sub

Etapa 9: Agora novamente compile e execute o código completo.

Voltaremos a TRUE para o valor 10.12, que é um valor decimal.

Etapa 10: Agora vamos ver se a sintaxe definida atual de IsNumeric ainda funciona para outros números ou não. Para isso, precisamos alterar o Dim A como String, o que significa que inseriremos o valor Text aqui. E altere o valor inserido para A. Consideramos o valor da amostra como "ABC". Faça todas as alterações necessárias nos campos relacionados, onde podemos colocar texto em vez de números e manter o restante das coisas como estão.

Código:

 Sub VBA_IsNumeric2 () Dim A como sequência Dim X como booleano A = ABC X = IsNumeric (A) MsgBox "A expressão ('ABC') é numérica ou não:" & X, vbInformation, "Função VBA IsNumeric" End Sub

Etapa 11: Depois disso, compile e execute o código completo.

Profissionais do Excel VBA IsNumeric

  • É tão fácil aplicar o IsNumeric no VBA. É tão simples quanto aplicar o Isnumber através da função de inserção.
  • IsNumeric e IsNumber fornecem o mesmo resultado.

Contras do Excel VBA IsNumeric

  • A aplicação do exemplo 2, onde precisamos inserir texto, torna o processo simples demorado.

Coisas para lembrar

  • Gravar uma macro também é uma maneira de executar a função IsNumeric no VBA.
  • Salve o arquivo no Excel habilitado para macro. Esta é a melhor maneira de evitar a perda de código gravado.
  • A melhor maneira de evitar qualquer erro durante a execução do código é primeiro compilar o código completo antes de corrigi-lo como final.
  • A atribuição do código criado a um botão também é uma maneira de executar a macro criada rapidamente, economizando tempo.
  • Se você estiver aplicando IsNumeric pelo método exemplo-2, lembre-se de manter o texto entre aspas simples ('Texto'), caso contrário, ocorrerá um erro.
  • Como IsNumeric no VBA é usado, no Excel ele é usado no nome de IsNumber.

Artigos recomendados

Este foi um guia para o VBA IsNumeric. Aqui discutimos como usar o Excel VBA IsNumeric, juntamente com exemplos práticos e modelo de excel para download. Você também pode consultar nossos outros artigos sugeridos -

  1. Dim VBA no Excel
  2. Fórmula IF aninhada no Excel
  3. Usando IFError no VBA
  4. Contar fórmula no Excel