Como permitir somente números inteiros na Textbox





Como somente permitir números inteiros dentro de um intervalo.


Private Sub TextBox1_Change()
If TextBox1 < 0 Or TextBox1 > 100 Then
‘TextBox1 = “”
tamanho = Len(TextBox1)
If tamanho > 0 Then
TextBox1 = Left(TextBox1, tamanho – 1)
End If
End If
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii >= 48) And (KeyAscii <= 57) Then Me.TextBox1.SetFocus Else KeyAscii = 0 Me.TextBox1.SetFocus End If End Sub