Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Formato para digitação - Resolvido

Dúvidas gerais sobre Excel
jovemlima
Consultor
Consultor
Mensagens: 247
Registrado em: Ter Jan 05, 2010 7:20 am

Formato para digitação - Resolvido

Mensagem por jovemlima »

Ola Tomaz,
Gostaria de mais uma ajuda, achei varios topicos falando sobre sobre validação de dados para preenchimento de celulas com formatos especificos, como cep, cpf, mas todos usam o vba diretamente nas celulas das planilhas, mas nao sei e nao achei como fazer isso em formulario de cadastro como seu. Fazer formulas no userform é bem diferente de fazer nos modulos.....tem como me dar uma luz neste caso?

sds
luiz
Editado pela última vez por jovemlima em Qui Out 16, 2014 10:06 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.


poiaman
Colaborador
Colaborador
Mensagens: 61
Registrado em: Sáb Jan 02, 2010 9:17 am

Re: Formato para digitação

Mensagem por poiaman »

Eu uso assim:

um exemplo para utilizaçao de data numa textbox: dd/mm/aa

Private Sub textbox1_Change()
Select Case Len(textbox1.Text)
Case Is = 2
textbox1.Text = textbox1.Text & "/"
Case Is = 5
textbox1.Text = textbox1.Text & "/"
Case Is = 8
textbox2.SetFocus
End Select
End Sub

Na verdade vc diz p quando tiver 2 caracteres inseridos no tx1, ele coloca "/"
Depois quando tiver 5 caracteres, ou seja 2 do dia, mais a barra "/"mais dois do mês ele coloca outra barra "/"
E em seguida quando tiver 8 caracteres (2 do dia mais barra, 2 do mes mais barra e mais 2 do ano) ele seta o foco na proxima tx2

E assim vc pode variar e usar p qq tipo de formataçao!

valeu


jovemlima
Consultor
Consultor
Mensagens: 247
Registrado em: Ter Jan 05, 2010 7:20 am

Re: Formato para digitação

Mensagem por jovemlima »

Valeu obrigado, Funcionou legal, mas será que tem como bloquear a forma da digitação neste exemplo que vc deu, assim, "##.###-###", porque no seu exemplo se eu colocar ##.###-########## ele aceita.

No exemplo de data do Tomaz ele bloqueia outro tipo de degitação, será que tem como fazer para outros formatos?

'Valida o campo data
If EValido Then
If Not IsDate(Me.txtNasc.Text) Then
EValido = False
Else
If Len(Me.txtNasc.Text) < 10 Then
EValido = False
End If
End If

If Not EValido Then
Mensagem = "Data no formato inválido. Obrigatório ser dd/mm/yyyy" & vbNewLine
End If
End If

If Not EValido Then
MsgBox Mensagem
End If


poiaman
Colaborador
Colaborador
Mensagens: 61
Registrado em: Sáb Jan 02, 2010 9:17 am

Re: Formato para digitação

Mensagem por poiaman »

hun...

Bem no exemplo que eu dei, quando vc preenche ##/##/## ele pula para o próximo textbox, já ajuda, mas realmente não bloqueia!
o que pode ser feito é colocar uma condição para se tiver mais de 8 caracteres não permitir o lançamento dos dados!

Para data realmente existe comando is date, mas para o seu caso (q não sei qual é) acredito que terá que fazer na marra mesmo!

valeu


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.


jovemlima
Consultor
Consultor
Mensagens: 247
Registrado em: Ter Jan 05, 2010 7:20 am

Re: Formato para digitação

Mensagem por jovemlima »

Valeu, obrigadao pela dica.


SDS
luiz


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.


Responder