¿Cómo permitir que solo se ingresen números en el cuadro de texto?
En Excel, podemos aplicar la función de Validación de datos para permitir que solo se ingresen números en las celdas, pero, a veces, quiero que solo se ingresen números en un cuadro de texto y en las celdas. ¿Cómo aceptar solo números en un cuadro de texto en Excel?
Dividir un rango de celdas por un número con la función Pegar especial
Dividir un rango de celdas por un número con la función Pegar especial
El siguiente código VBA puede ayudarlo a ingresar números, punto (.) Y un signo negativo solo en un cuadro de texto, haga lo siguiente:
1. Cree un cuadro de texto haciendo clic en Developer > recuadro > Cuadro de texto (control ActiveX), y luego dibuje un cuadro de texto como lo necesite, vea la captura de pantalla:
2. Luego haga clic derecho en el cuadro de texto y seleccione Ver código desde el menú contextual para abrir el Microsoft Visual Basic para aplicaciones ventana, y luego reemplace el código original con el siguiente código VBA en el módulo en blanco:
Código de VBA: permita que solo se ingresen números en el cuadro de texto:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
If KeyAscii = Asc("-") Then
If InStr(1, Me.TextBox1.Text, "-") > 0 Or _
Me.TextBox1.SelStart > 0 Then KeyAscii = 0
ElseIf KeyAscii = Asc(".") Then
If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0
Else
KeyAscii = 0
End If
End If
End Sub
3. Luego guarde y cierre la ventana de código y salga del Modo de diseño, ahora, solo se pueden ingresar números, símbolo de período y signo negativo en el cuadro de texto, ver captura de pantalla:
Artículos relacionados:
¿Cómo aplicar el corrector ortográfico en el cuadro de texto?
¿Cómo cambiar el color del cuadro de texto según el valor en Excel?
¿Cómo insertar una imagen en el cuadro de texto?
¿Cómo establecer un valor predeterminado en un cuadro de texto?
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!
