Digitar somente numeros em um textbox [RESOLVIDO]

Dúvidas gerais sobre Excel

Digitar somente numeros em um textbox [RESOLVIDO]

Mensagempor Edu » Seg Ago 01, 2011 11:48 am

Ola teria como fazer uma macro ou funcao para que um textbox so aceite numeros seguido de "."(ponto) ou ","(virgula)
se houver ficarei muito grato
Editado pela última vez por Edu em Qua Ago 10, 2011 10:46 am, em um total de 1 vez.
Edu
Colaborador
Colaborador
 
Mensagens: 25
Registrado em: Ter Mai 03, 2011 3:17 pm
Agradecimentos dados: 2 vezes
Agradecimentos recebidos: 1 vez

Re: Digitar somente numeros em um textbox

Mensagempor JValq » Seg Ago 01, 2011 12:17 pm

Boa tarde,

Veja se este código ajuda:

Código: Selecionar todos
Private Sub TextBox1_Change()
    If Not IsNumeric(TextBox1.Text) Then TextBox1.Text = Empty
End Sub

Abraço
JValq
Colaborador
Colaborador
 
Mensagens: 95
Registrado em: Qua Abr 27, 2011 7:34 pm
Localização: São Paulo/SP
Agradecimentos dados: 0 vez
Agradecimentos recebidos: 23 vezes

Re: Digitar somente numeros em um textbox

Mensagempor geroeane » Qui Ago 04, 2011 7:57 pm

veja se ajuda.
Select Case KeyAscii
Case 8 'Backspace (seta de apagar)
Case 48 To 57 'Números de 0 a 9
Case 44 'Vírgula
If InStr(LarguraQuadrado.Text, ",") Then 'Se o campo já tiver vírgula então ele não adiciona
KeyAscii = 0 'Não adiciona a vírgula caso ja tenha
Else
KeyAscii = 44 'Adiciona uma vírgula
End If
Case Else
KeyAscii = 0 'Não deixa nenhuma outra caractere ser escrito
End Select
geroeane
Colaborador
Colaborador
 
Mensagens: 18
Registrado em: Qui Ago 04, 2011 2:45 pm
Agradecimentos dados: 3 vezes
Agradecimentos recebidos: 0 vez

Re: Digitar somente numeros em um textbox

Mensagempor Melo » Qui Ago 04, 2011 8:37 pm

Boa noite

Estou usando em meu projeto o seguinte para aceitar somente Numeros

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
' ESTE A BAIXO É PARA ESPECIFICAR QUE A CADA 3 NUMEROS COLOCAR UM TRAÇO (-) E DEPOIS MAIS 4
If Len(txtPlaca) = 3 Or Len(txtPlaca) = 4 Then
txtPlaca.Text = txtPlaca.Text & "-"
SendKeys "{End}", True
End If

Aproveito para PERGUNTAR
Como ficaria para digitar em uma TextBox uma placa, ex: Obrigar a Digitar somente (3) Letras e gerar o Traço (-) e depois aceitar os 4 numeros.

Como ficaria?
M E L O
josielgestor.com.br

Vamos compartilha conhecimento para o desenvolvimento mutuo de nossa sociedade
Avatar do usuário
Melo
Colaborador
Colaborador
 
Mensagens: 70
Registrado em: Ter Jan 12, 2010 4:26 pm
Agradecimentos dados: 0 vez
Agradecimentos recebidos: 11 vezes

Re: Digitar somente numeros em um textbox

Mensagempor Mauro Coutinho » Seg Ago 08, 2011 11:28 pm

Melo, pelas minhas pesquisas e conhecimento, o ideal seria crair uma Function expecifica, mas como ainda preciso estudar um pouco mais a possibilidade, criei uma forma paliativa, com a utilização de 02 Textbox, de uma olhada e veja se ajuda.

TextBox- Somente Letras e Numeros
viewtopic.php?f=17&t=1206

[]s
Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !
Avatar do usuário
Mauro Coutinho
Jedi
Jedi
 
Mensagens: 1431
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr
Agradecimentos dados: 2 vezes
Agradecimentos recebidos: 114 vezes

Anúncios


Voltar para Geral

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot] e 2 visitantes