Es común para recuperar los datos mixtos del usuario, como las letras y los números en una variable. Un programador continuación, tendrá que extraer los números de esa variable y utilizar cuando sea necesario . En Visual Basic para Aplicaciones ( VBA) , puede utilizar la función " IsNumberic " para comprobar si una expresión puede evaluarse como un número. Si la expresión contiene sólo números , la función devolverá "true ". Pero si contiene letras y números, la expresión devuelve " false ". Instrucciones
1

Crear un nuevo procedimiento sub para buscar un número en una cadena , escriba el siguiente código:

checkForNumber Sub Private ()
2

Declarar dos variables, una para contener la cadena de números y letras y la otra para los caracteres individuales, como en el siguiente :

strVar dévil como secuencia

oneChar As
secuencia

strVar = " 12 sdf 3456 "
3

Añada el siguiente código para recorrer cada carácter de la cadena . Revise los números y los muestra a través de la ventana Inmediato :

¿ Mientras strVar < > ""

oneChar = Izquierda ( strVar , 1) spanish

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

Si IsNumeric ( oneChar ) Entonces

Debug.Print ( oneChar )

End If

Loop < br > Página 4

Finalice el procedimiento mediante la adición de "End Sub " y pulse la tecla "Ctrl " y "G " para abrir la ventana inmediata. Pulse la tecla "F5 " para ejecutar el código.