Solo acepte números en un TextBox
Hola leone, necesito ayuda para que dentro de un textbox solo se acepte números, y de lo contrario aparezca error en un msgbox que solo ingrese números.
Si me podrías ayudar con eso. Gracias
Si me podrías ayudar con eso. Gracias
1 Respuesta
Respuesta de leone
1
Me parece que esta pregunta esta repetida, de todas formas te la vuelvo a enviar.
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{tab}"
ElseIf KeyAscii <> 8 Then
If Not IsNumeric("0" & TextBox1.Text & Chr(KeyAscii)) Then
Beep
KeyAscii = 0
End If
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{tab}"
ElseIf KeyAscii <> 8 Then
If Not IsNumeric("0" & TextBox1.Text & Chr(KeyAscii)) Then
Beep
KeyAscii = 0
End If
End If
End Sub
