¿Cómo formatear un cuadro de texto como porcentaje en Excel?
En el artículo anterior, hemos discutido un método VBA para formatear el número en un cuadro de texto como moneda en Excel. Aquí, en este artículo, también hablaremos sobre el formato del número en un cuadro de texto como porcentaje en Excel con el método VBA.
Formatee un cuadro de texto como porcentaje con código VBA
Formatee un cuadro de texto como porcentaje con código VBA
Haga lo siguiente para formatear un cuadro de texto como porcentaje con código VBA.
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 VBA: formatee un cuadro de texto como porcentaje en Excel
Private Sub TextBox1_LostFocus()
Dim xReg As New RegExp
Dim xMatches As MatchCollection
Dim xMatch As Match
Dim xText As String
Dim xReplace As String
On Error Resume Next
Application.ScreenUpdating = False
xText = Me.TextBox1.Text
xText = Replace(xText, "%", "")
With xReg
.Global = True
.Pattern = "([^0-9]+\d+)|(\d{1,})"
Set xMatches = .Execute(xText)
For Each xMatch In xMatches
xReplace = xReplace & xMatch.Value & "%"
Next
End With
xText = xReplace & Mid(xText, Len(xReplace) - xMatches.Count + 1)
Me.TextBox1.Text = xText
Application.ScreenUpdating = True
End Sub
Note: Cambie TextBox1 por el nombre del cuadro de texto según sus necesidades.
4. Hacer clic en Herramientas > Referencias. Entonces revisa el Expresiones regulares de Microsoft VBScript en el cuadro Referencias - VBAProject cuadro de diálogo y haga clic en el OK botón. Ver captura de pantalla:
5. presione el otro + Q llaves para salir del Microsoft Visual Basic para aplicaciones ventana.
6. Cuando vuelva a la hoja de trabajo, haga clic en Developer > Modo de diseño nuevamente para desactivar el modo de diseño.
De ahora en adelante, cuando ingrese números en el cuadro de texto y mueva el cursor fuera del cuadro de texto para hacer clic en cualquier celda, estos números se formatearán automáticamente como porcentaje.
Artículos relacionados:
- ¿Cómo formatear un cuadro de texto como moneda en Excel?
- ¿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 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!