¿Cómo formatear un cuadro de texto como moneda en Excel?
Normalmente, no hay una función incorporada en Excel para que pueda cambiar el formato de texto en un cuadro de texto (Control ActiveX). Sin embargo, si necesita formatear números que ha ingresado en el cuadro de texto a moneda para algún propósito. ¿Cómo puedes hacer para lograrlo? Este artículo le mostrará un método VBA para resolver este problema.
Dar formato a un cuadro de texto como moneda con código VBA
Dar formato a un cuadro de texto como moneda con código VBA
El siguiente código VBA puede ayudarlo a formatear fácilmente números en el cuadro de texto como moneda en Excel. Haz lo siguiente.
1. Hacer clic en Developer > recuadro > Cuadro de texto (control ActiveX) para insertar un cuadro de texto en la hoja de trabajo. Ver captura de pantalla:
2. Haga clic con el botón derecho en el cuadro de texto y luego haga clic en Ver código desde el menú contextual.
3. En la apertura Microsoft Visual Basic para aplicaciones ventana, reemplace el código original en la ventana Código con el siguiente código VBA.
Código de VBA: formatee el cuadro de texto como moneda en Excel
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "$###,##")
End Sub
Note: En el código, cuadro de texto1 es el nombre del cuadro de texto en el que formateará los números como moneda. Cámbielo por el suyo.
4. presione el otro + Q teclas simultáneamente para cerrar el Microsoft Visual Basic para aplicaciones ventana.
5. Desactive el modo de diseño.
A partir de ahora, al ingresar un número en el cuadro de texto, se formateará automáticamente como moneda como se muestra a continuación.
Artículos relacionados:
- ¿Cómo seleccionar automáticamente el texto de un cuadro de texto cuando está seleccionado en Excel?
- ¿Cómo autocompletar un cuadro de texto al escribir en Excel?
- ¿Cómo formatear un cuadro de texto como porcentaje en Excel?
- ¿Cómo concatenar textos de varias celdas en un cuadro de texto en Excel?
- ¿Cómo deshabilitar la edición en el cuadro de texto para evitar que el usuario ingrese en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!