¿Cómo aplicar formato de porcentaje a un cuadro de texto en Excel?
En un artículo anterior explicamos cómo aplicar formato de moneda a los números en un cuadro de texto de Excel. Ahora, descubriremos cómo dar formato de porcentaje a esos números. Con VBA, puede lograr que cualquier valor introducido en el cuadro de texto se convierta automáticamente en porcentaje, asegurando así una presentación coherente y profesional de sus datos.
Dar formato de porcentaje a las entradas del cuadro de texto con código VBA
Dar formato de porcentaje a las entradas del cuadro de texto con código VBA
Siga estos pasos para aplicar formato de porcentaje a un cuadro de texto mediante código VBA.
1. Haga clic en «Desarrollador» > «Insertar» > «Cuadro de texto (Control ActiveX)» para agregar un cuadro de texto a la hoja de cálculo. Consulte la captura de pantalla:
2. Haga clic con el botón derecho en el cuadro de texto y seleccione «Ver código» en el menú contextual.
3. En la ventana abierta de «Microsoft Visual Basic para Aplicaciones», sustituya el código original en la ventana de código por el siguiente código VBA.
Código VBA: dar formato de porcentaje a un cuadro de texto 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 SubNota: sustituya «TextBox1» por el nombre del cuadro de texto que esté utilizando.
4. Haga clic en «Herramientas» > «Referencias». A continuación, active la casilla «Microsoft VBScript Regular Expressions» en el cuadro de diálogo «Referencias: VBAProject» y haga clic en «Aceptar». Consulte la captura de pantalla:
5. Pulse las teclas «Alt» + «Q» para cerrar la ventana de «Microsoft Visual Basic para Aplicaciones».
6. Al regresar a la hoja de cálculo, haga clic nuevamente en «Desarrollador» > «Modo Diseño» para desactivar el modo diseño.
A partir de ahora, al introducir números en el cuadro de texto y mover el cursor fuera de él para hacer clic en cualquier celda, los números se formatearán automáticamente como porcentajes.
Artículos relacionados:
- ¿Cómo aplicar formato de moneda a un cuadro de texto en Excel?
- ¿Cómo seleccionar automáticamente el texto de un cuadro de texto al hacer clic en él en Excel?
- ¿Cómo autocompletar un cuadro de texto mientras escribes en Excel?
- ¿Cómo concatenar el texto de varias celdas en un cuadro de texto en Excel?
- ¿Cómo deshabilitar la edición en un cuadro de texto para impedir que el usuario introduzca datos en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos