Validación
Hola, ¿cómo puedo hacer para que en un texbox de un formulario acepte solo números enteros?
1 Respuesta
Respuesta de jerryeagle
1
Si quieres que siempre sean Números enteros
Private Sub TextBox1_AfterUpdate()
'si no esta vacio, convierte a formato Numero
If Not TextBox1 = "" Then
TextBox1.Value = Fix(TextBox1.Value)
End If
End Sub
Si quieres que solo acepte Números
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Solo acepta Numeros (0 - 9)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
Private Sub TextBox1_AfterUpdate()
'si no esta vacio, convierte a formato Numero
If Not TextBox1 = "" Then
TextBox1.Value = Fix(TextBox1.Value)
End If
End Sub
Si quieres que solo acepte Números
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Solo acepta Numeros (0 - 9)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
