Formato de número contable cuadro de texto formularios VBA

Si lo que se requiere es personalizar aún más los valores que se ingresan en el Cuadro de Texto, una opción es que se visualicen en formato contable para que al número se anteponga el singo de pesos ($). 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) textoUtilidad. Observemos que al ejecutar este formulario e ingresar cualquier valor, no se visualizan signo alguno:

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 textoUtilidad):

textoUtilidad.Value = Format(textoUtilidad, "$#,###,###")

Queda de la siguiente manera en el Editor VBA:

Ahora al ejecutar el formulario e ingresar un valor numérico, no se hace necesario insertar el signo de pesos pues el Cuadro de texto ya lo tiene configurado por defecto:

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

Información legal aplicable para Colombia.