Máscaras No Textbox

[Macêdo]

Máscara De Data No Textbox

Colocar no evento change:

If Len(Text1) = 2 Then

Text1 = Text1 + "/"

Text1.SelStart = 4

End If

If Len(Text1) = 5 Then

Text1 = Text1 + "/"

Text1.SelStart = 7

End If

obs:

(colocar propriedade maxlengt = 10)

[Macêdo]

Máscara De CPF No Textbox

Colocar no evento change:

If Len(Text1) = 3 Then

Text1 = Text1 + "."

Text1.SelStart = 5

End If

If Len(Text1) = 7 Then

Text1 = Text1 + "."

Text1.SelStart = 9

End If

If Len(Text1) = 11 Then

Text1 = Text1 + "-"

Text1.SelStart = 14

End If

(colocar propriedade maxlengt = 14)

[Macêdo]

Máscara De Hora No Textbox

Colocar no evento change:

If Len(Text1) = 2 Then

Text51 = Text1 + ":"

Text1.SelStart = 4

End If

If Len(Text1) = 1 Then

Text1 = Text1 + ":"

Text1.SelStart = 7

End If

(colocar propriedade maxlengt = 8)

[Macêdo]

Máscara De CNPJ No Textbox

Colocar no evento chenge:

If Len(Text1) = 2 Then

Text1 = Text1 + "."

Text1.SelStart = 4

End If

If Len(Text1) = 6 Then

Text1 = Text1 + "."

Text1.SelStart = 9

End If

If Len(Text1) = 10 Then

Text1 = Text1 + "/"

Text1.SelStart = 12

End If

If Len(Text1) = 15 Then

Text1 = Text1 + "-"

Text1.SelStart = 17

End If

(colocar propriedade maxlengt = 18)

[Wagner Moreira]

..

Editado Outubro 5, 2011 por Wagner Moreira

[Pedrosa Souza]

Boa noite Pessoal,

realmente todas as máscaras funcionam perfeitamente, até mesmo para outros tipos, no meu caso eu alterei para telefone com o seguinte formato (##) ####-####.

Entre tanto percebi um problema, caso você cometa um erro na digitação de algum dos algarismos, no CNPJ, CPF, DATA ou Etc, se você utilizar o Backspace para apagar até o digito errado, o curso "trava" até o algarismo que foi acrescentado para dar o formato ("/", "." ou "-"), paga poder apagar você tem de selecionar TODO o conteúdo do TextBox e apagar.

Amigos gostaria de saber se temos alguma opção para driblar essa questão?

Agradeço desde já a atenção.

Pedro Souza

[Pedrosa Souza]

Galera,

consegui resolver meu problema com o seguinte código, o exemplo abaixo é para um TextBox de CEP, mas pode ser adaptado para qualquer tipo (CNPJ, CPF, Data, etc):

Private Sub inputCEP_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   Select Case KeyAscii
      Case 8       'Aceita o BACK SPACE
      Case 13: SendKeys "{TAB}"    'Emula o TAB
      Case 48 To 57
         If inputCEP.SelStart = 2 Then inputCEP.SelText = "."
         If inputCEP.SelStart = 6 Then inputCEP.SelText = "-"
      Case Else: KeyAscii = 0     'Ignora os outros caracteres
   End Select
    Plan2.Range("H14").Value = inputCEP.Value       'Os dados digitados só implementados na planilha de cálculo
End Sub

Lembre galera que nas propriedades colocar o MaxLenght com o valor 10 que o número máximo de caracteres do campo ao digitar.

Abraço a todos.

Pedro Souza

[Bruno_Eduardo]

Galera,

consegui resolver meu problema com o seguinte código, o exemplo abaixo é para um TextBox de CEP, mas pode ser adaptado para qualquer tipo (CNPJ, CPF, Data, etc):

Private Sub inputCEP_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   Select Case KeyAscii
      Case 8       'Aceita o BACK SPACE
      Case 13: SendKeys "{TAB}"    'Emula o TAB
      Case 48 To 57
         If inputCEP.SelStart = 2 Then inputCEP.SelText = "."
         If inputCEP.SelStart = 6 Then inputCEP.SelText = "-"
      Case Else: KeyAscii = 0     'Ignora os outros caracteres
   End Select
    Plan2.Range("H14").Value = inputCEP.Value       'Os dados digitados só implementados na planilha de cálculo
End Sub

Lembre galera que nas propriedades colocar o MaxLenght com o valor 10 que o número máximo de caracteres do campo ao digitar.

Abraço a todos.

Pedro Souza

Amigos alguém já viu ou conseguiu montar uma máscara para o campo valor?

Desde já obrigado.