Notifications
Clear all
Formulários
3
Posts
2
Usuários
0
Reactions
1,209
Visualizações
Topic starter
Fala Galera.
Estou querendo formatar o valor do textbox de um formulário que pode ir de 1 até 4 (como número), no máximo.
Atenção: Não é limitar o número de caractere e sim definir até o valor máximo, que no caso seria o 4.
Obrigado.
Postado : 14/09/2013 8:18 am
Veja se é isto :
Private Sub TextBox1_Change()
Dim sVlMaximo As Integer
Dim sVlDigitado As Integer
Dim sVlMinimo As Integer
sVlMaximo = 4
sVlMinimo = 1
If TextBox1.Value = "" Then Exit Sub
sVlDigitado = TextBox1.Value
If sVlDigitado < sVlMinimo Or sVlDigitado > sVlMaximo Then
MsgBox "Digite Numeros entre 1 e 4", vbCritical, "Verifica Numeros"
TextBox1.Value = ""
End If
End Sub
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 14/09/2013 9:12 am
Topic starter
Mauro.
Show de bola. Deu certo.
Muito Obrigado
Postado : 14/09/2013 1:03 pm