Digitar somente numeros em um textbox [RESOLVIDO]

Dúvidas gerais sobre Excel
Edu
Colaborador
Colaborador
Mensagens: 25
Registrado em: Ter Mai 03, 2011 3:17 pm
Has thanked: 2 times
Been thanked: 1 time

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.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


JValq
Colaborador
Colaborador
Mensagens: 97
Registrado em: Qua Abr 27, 2011 7:34 pm
Localização: São Paulo/SP
Been thanked: 25 times
Contato:

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



geroeane
Colaborador
Colaborador
Mensagens: 18
Registrado em: Qui Ago 04, 2011 2:45 pm
Has thanked: 3 times

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



Avatar do usuário
Melo
Colaborador
Colaborador
Mensagens: 70
Registrado em: Ter Jan 12, 2010 4:26 pm
Been thanked: 11 times

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

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1535
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr
Has thanked: 6 times
Been thanked: 150 times

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 !

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.



Voltar para “Geral”

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante