Cómo comprobar los números de la VBA

Es común para recuperar datos mixtos desde el usuario, tales como letras y números en una variable. Un programador necesitaría entonces para extraer los números de esa variable y utilizarlos cuando sea necesario. En Visual Basic para Aplicaciones (VBA), puede utilizar la función "IsNumberic" para comprobar si una expresión se puede evaluar como un número. Si la expresión contiene sólo números, la función devolverá "verdad". Pero si contiene letras y números, la expresión volverá "falsa".

Instrucciones

1 Crear un nuevo procedimiento sub para comprobar si hay un número en una cadena escribiendo el siguiente código:

Private Sub checkForNumber ()

2 Declarar dos variables, una para sujetar la cadena con números y letras y el otro para los caracteres individuales, como en el siguiente:

Dim como secuencia strVar

Dim como secuencia oneChar

strVar = "12 sdf 3456"

3 Agregue el código siguiente al bucle a través de cada carácter de la cadena. Compruebe si los números y mostrarlos a través de la ventana Inmediato:

Hacer mientras que strVar <> ""

oneChar = Left(strVar, 1)

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

Si IsNumeric (oneChar) A continuación,

Debug.Print (oneChar)

Terminara si

Lazo

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