Como verificar os números do vba

É comum para obter dados mistos do usuário, tais como letras e números em uma variável. Um programador, então, necessidade de extrair os números dessa variável e usá-los quando necessário. No Visual Basic for Applications (VBA), você pode usar a função "IsNumberic" para verificar se uma expressão pode ser avaliada como um número. Se a expressão contém apenas números, a função irá retornar "true". Mas se ele contém letras e números, a expressão retornará "false".

  • Crie um novo procedimento sub para verificar se há um número em uma string, digitando o seguinte código:

    Private Sub checkForNumber ()

  • Declare duas variáveis, uma para segurar a corda com números e letras e outro para caracteres individuais, como no seguinte:

    Dim strVar As String

    Dim oneChar As String

    strVar = "12 sdf 3456"

  • Adicione o seguinte código para percorrer todos os caracteres na cadeia. Verifique para números e exibi-los através da janela Immediate:

    Do While strVar <> ""

    oneChar = Esquerda (strVar, 1)

    strVar = Right (strVar, Len (strVar) - 1)

    Se IsNumeric (oneChar) Em seguida,

    Debug.Print (oneChar)

    Fim se

    laço

  • Terminar o procedimento, acrescentando "Sub End" e pressione "Ctrl" e "G" para exibir a janela imediata. Pressione "F5" para executar o código.

De esta maneira? Compartilhar em redes sociais: