¿Cómo permitir solo números en el cuadro de texto?

En Excel, podemos aplicar la función Validación de Datos para permitir que solo se ingresen números en las celdas, pero, a veces, también quiero que solo se escriban números en un cuadro de texto al igual que 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 Pegado Especial

Dividir un rango de celdas por un número con la función Pegado Especial

El siguiente código VBA puede ayudarte a ingresar solo números, punto (.) y signo negativo en un cuadro de texto, sigue estos pasos:

1. Crea un cuadro de texto haciendo clic en Desarrollador > Insertar > Cuadro de Texto (Control ActiveX), y luego dibuja un cuadro de texto según lo necesites, ver captura de pantalla:

2. Luego, haz clic derecho en el cuadro de texto y selecciona Ver Código desde el menú contextual para abrir la ventana Microsoft Visual Basic para Aplicaciones, y luego reemplaza el código original con el siguiente código VBA en el módulo en blanco:

Código VBA: Permitir solo 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 guarda y cierra la ventana de código, y sal del Modo Diseño; ahora, solo se pueden ingresar números, el símbolo de punto y el signo negativo en el cuadro de texto, ver captura de pantalla:

Artículos relacionados:

¿Cómo aplicar la revisión ortográfica en un cuadro de texto?

¿Cómo cambiar el color del cuadro de texto basado en el valor en Excel?

¿Cómo insertar una imagen en un cuadro de texto?

¿Cómo establecer un valor predeterminado en un cuadro de texto?