Anónimo
Solo números en un TextBox
Hola leone, desearía que me ayudes con la programación dentro de un textbox para que solo se acepte números dentro de este, de lo contrario que aparezca un error en un msgbox que no introdujo números.
Sergio
Sergio
1 respuesta
Respuesta de leone
1
Te envío el código que debes colocar en el evento KeyPress del Textbox de interés:
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
No hace falta colocar un mensaje ya que el tesbox solo permite teclear números
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
No hace falta colocar un mensaje ya que el tesbox solo permite teclear números