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
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.