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.

_________________________________________________

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

____________________________________________________

Criando 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....