Formato de número decimal cuadro de texto formularios VBA

Para continuar ampliando las posibilidades de configuración de formato numérico en el Cuadro de Texto, vamos a ver en esta entrega como configurarlo para que solo admita valores con decimales tal como si se tratara de la información de la estatura por ejemplo. 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) textoEstatura. Observemos que al ejecutar este formulario e ingresar cualquier valor, no se visualizan los separadores de Miles o decimales:

Lo que se debe hacer es dar doble clic sobre el Objeto Cuadro de Texto con lo cual se activa el editor de código donde veremos que las instrucciones que se indiquen se ejecutarán automáticamente al darse un cambio (Change) en el Objeto:

Bien, ahora ingresamos el siguiente código dentro de este evento Change del cuadro de texto (cuyo nombre es textoEstatura):

textoEstatura.Value = Format(textoEstatura, "0.##")

Queda de la siguiente manera en el Editor VBA:

Ahora al ejecutar el formulario e ingresar la estatura (sin necesidad de ingresar el punto) tendremos:

Descargar archivo de ejemplo.

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.