Cuadro texto que solo admite números - Formularios VBA

Otra de las configuraciones de mayor uso en los Cuadros de Texto tiene que ver con la posibilidad de que la información que se pueda ingresar sea solo Números, es decir, nada de texto. Nuevamente debemos programar desde el Evento Change

Evento Change: Este evento se activa al detectarse cualquier cambio en el Cuadro de texto durante su manipulación.

Lo primero es ingresar al editor de Visual Basic, puede ser con la combinación de teclas Alt + F11 y en la ventana del Explorador de proyectos, ubicamos el libro de trabajo donde queremos insertar el formulario para lo cual damos clic derecho y seleccionamos la opción Insertar de la cual se despliegan tres opciones y finalmente, clic en la opción UserForm:

De esta manera, se insertar el formulario el cual se puede observar dentro de la “estructura” del explorador de proyectos como un Objeto más del libro de trabajo:

Nos ubicamos en la ventana de herramientas que se presenta como una ventana flotante:

Y la idea es insertar una Etiqueta y un Cuadro de Texto de acuerdo al siguiente esquema:

Al cuadro de Texto le daremos como nombre (Propiedad Name) textoCedula. Observemos que al ejecutar este formulario es posible digitar letras:

Lo que se debe hacer es dar doble clic sobre el Objeto Cuadro de Texto e ingresamos el siguiente código dentro de este evento Change del cuadro de texto (cuyo nombre es textoCedula):

If Not IsNumeric(textoCedula.Value) Then

textoCedula.Text = ""

End If

Queda de la siguiente manera en el Editor VBA:

Ahora al ejecutar el formulario e intentar ingresar letras, no será posible.

Descargar archivo de trabajo.

MÁS SOBRE

Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.

Siéntase libre de opinar

En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc., pero debe hacerlo sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.