Este fórum está sendo desativado

[glaubermoraes93]

Fala Galera preciso da ajuda de vocês, como faço para deixar uma campo textbox aceitar somente números, não aceitar letras e nem caracteres especiais como , . - @ !, somente números mesmo.

[Kledison]

Bom dia,

eu utilizo esse código.

Código: Selecionar todos

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Dim strValid As String
strValid = "0123456789"

If InStr(strValid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

[Startec]

Eu tb. utilizo este exemplo:

Código: Selecionar todos

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr(1, "0123456789", Chr$(KeyAscii)) = 0 Then KeyAscii = 0
End Sub