É comum para recuperar dados mistos do usuário, como letras e números em uma variável. Um programador , então, precisa 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". Instruções
1

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

checkForNumber ()
2

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

Dim strVar as String Dim

oneChar as String

strVar = " 12 sdf 3456 "
3

Adicione o seguinte código para percorrer todos os caracteres na string. Verifique se há 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 ) Então

Debug.Print ( oneChar )

End If

loop < br >
4

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