Impedir la entrada de guiones en cuadros de texto – Formularios VBA

Ahora pasemos a realizar una configuración un poco más elaborada, se trata de impedir la inserción de los guiones en los Cuadros de Texto, tal y como si se tratara de un formulario donde uno de los campos es el número de celular y lo ideal es que se ingrese sin los guiones que algunas personas acostumbran a utilizar En este caso utilizaremos el Evento KeyPress

Evento KeyPress: Este evento se activa al presionarse cualquier tecla del computador.

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) textoNroCelular. Observemos que al ejecutar este formulario es posible digitar guiones:

Lo que se debe hacer es dar doble clic sobre el Objeto Cuadro de Texto y de la pestaña de Eventos seleccionamos el evento KeyPress:

Insertamos el siguiente código dentro de este Evento KeyPress:

Select Case KeyAscii

Case 45

MsgBox "No se permite ingresar guiones"

KeyAscii = 0

End Select

Queda de la siguiente manera en el Editor VBA:

Ahora, al ejecutar el formulario, veremos que no será posible insertar los guiones.

Descargar archivo de ejemplo.

Contenido relacionado:
Compartirlo
Gerencie.com en su correo.

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

Déjenos su opinión

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.