Formato de número en cuadro de texto formularios VBA

Una de las consultas que más se encuentran en la red sobre los cuadros de Texto, tiene que ver con el formato de número y esto se debe a que por defecto, el Cuadro de texto se encuentra configurado para ingresar precisamente Texto pero es muy frecuente la necesidad de contar con cuadros de texto donde se deba ingresar información numérica; no significa que no se puedan ingresar números en el cuadro de texto, lo que pasa es que al momento de que se va ingresando un número, no se visualizan los separadores de miles y decimales. Para realizar la configuración del tipo de formato visual en el Cuadro de texto no es necesario hacerlo desde una Propiedad así que lo vamos a realizar a través de uno de los Eventos que se activan al utilizar el Cuadro de texto, se trata del 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) textoPrecio. 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 textoPrecio):

textoPrecio = VBA.Format(textoPrecio.Text, "#,###,###")

Queda de la siguiente manera en el Editor VBA:

Ahora al ejecutar el formulario e ingresar un valor numérico tendremos:

Descargar archivo de trabajo.

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 con respeto, sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.