Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Mascara de telefone...
 
Notifications
Clear all

Mascara de telefone enquanto digita

 
2024 - VBA & Macros
Post Recente por MPrudencio 6 anos atrás
4 Posts
2 Usuários
0 Reactions
1,153 Visualizações
RSS
 vilc
(@vilc)
Posts: 41
Eminent Member
Topic starter
 

Boa noite, como faço para quando for digitando um numero de telefone na textbox já indo formatando para telefone.

 
Postado : 03/08/2018 4:39 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Eu prefiro usar no momento que o cursor sair da textbox facilita o uso

Formatei para numero de telefone fixo sem o DDD altere conforme sua necessidade

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1, "0000-0000") 

End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 03/08/2018 4:58 pm
 vilc
(@vilc)
Posts: 41
Eminent Member
Topic starter
 

seria assim quando começar a digitar ele ja vai colocando o dd entre parênteses e depois separar os numeros

 
Postado : 03/08/2018 5:06 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

O que muda é apenas o evento.

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1, "(##) ####-####")
End Sub

Ou

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1, "(00) 0000-0000")
End Sub

Não recomendo usar dessa forma mas esta ai.

Não testei mas é por ai

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 04/08/2018 7:23 am
Forum Jump:
  Tópico Anterior
Próximo Tópico