É 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.
Como converter um número em uma carta em java
Como usar uma variável em um vba cadeia de sql
Como procurar um caractere de tabulação em vba
Como limpar uma corda em vba
Como saída de uma cadeia no visual basic