Anónimo
Solo letras en textbox
Hola leone, quisiera hacerte otra pregunta, para el caso que solo quisiera que se ingrese texto y no así números dentro un textbox, ¿cómo seria? Muchas gracias.
Sergio
Sergio
Respuesta de leone
1
Este seria para que solo acepte Letras:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{tab}"
ElseIf KeyAscii <> 8 Then
If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) 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 (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) Then
Beep
KeyAscii = 0
End If
End If
End Sub
Hola leone, quisiera una aclaración, el código que me mandaste, no deja poner espacio entre letras, ya que en el textbox quisiera por ejemplo que me permita colocar nombres. Te pediría una ayuda en eso. Gracias
Solo se debe validar la tecla correspondiente al espacio la cual es la 32, así:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{tab}"
ElseIf KeyAscii <> 8 Then
If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 32 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 (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 32 Then
Beep
KeyAscii = 0
End If
End If
End Sub