quarta-feira, 27 de março de 2013

VERIFICAR SE É UM NUMERO....

O TEXTO DIGITADO É NUMÉRICO?

Olá, a todos estou de volta aqui no meu blog e é com grande alegria que tiro uns minutos do meu tempo para postar algo que possa ajudar a alguém que esteja precisando...

Hoje vou falar de um assunto muito interessante, as vezes temos em nossos projetos situações assim: Há um campo para números o qual as vezes pode gerar um erro caso o valor não seja valido, tipo seja um texto ou uma data talvez.

Criei um UserForm bem simples mesmo só para o exemplo aqui... vejam.



A ideia é digitar um valor qualquer e clicar no botão o qual irá dizer de é ou não numérico através de uma caixa de mensagens.



_________________________________________________
videoVamos começar abrindo o editor VBA vamos na guia desenvolvedor...


____________________________________________________
videoCriando os objetos... a propriedade (Name) deixamos como de padrão mesmo...


______________________________________________________

Bom o código vamos por no evento Click do Botão de comando:



Private Sub CommandButton1_Click()


If TextBox1.Text = "" Then
Else
If IsNumeric(Me.TextBox1.Text) = False Then
MsgBox "Não é numérico", vbCritical
TextBox1.Text = ""
TextBox1.SetFocus
Else
MsgBox "Sim é numérico"
End If
End If


End Sub







Passo a passo do código

Private Sub CommandButton1_Click()

If TextBox1.Text = "" Then ' se o objeto TextBox1 for igual a vazio não fazer nada
Else ' se não
If IsNumeric(Me.TextBox1.Text) = False Then 'verificar se é numérico o texto digitado em TextBox1se for falso
MsgBox "Não é numérico", vbCritical 'exibir mensagem com um botão em x na cor vermelha



TextBox1.Text = "" 'limpar a caixa de texto
TextBox1.SetFocus 'levar o focu de novo para ela
Else 'já se o valor numérico for igual a verdadeiro
MsgBox "Sim é numérico" 'exibir mensagem afirmando


End If
End If


End Sub


é isso vou fazer também para data.. em outro post

Valeu galera me add no face

edcsilva35@hotmail.com

Edivan Cabral....

Nenhum comentário:

Postar um comentário