Macros úteis para utilização em Formulários | Excelmax Soluções e Controles

sábado, agosto 16, 2014

Macros úteis para utilização em Formulários

Macros úteis para utilização em Formulários

macros, vba, úteis, textbox, excel, data, telefone, CPF, número

Quando trabalhamos com macros e criamos formulários (UserForms), utilizamos objetos que precisam ser configurados para um bom funcionamento ou para facilitar a vida do usuário. O objeto que vou utilizar aqui como exemplo é o TextBox (caixa de texto).

Algumas macros serão apresentadas para exemplificar a formatação de Datas, números de telefones, números de CPF, entre outros.

Estas macros devem ser colocadas nos eventos dos objetos onde serão executadas automaticamente dependendo da ação tomada.

Formato (máscara) de telefone - Executa ao sair do TextBox


Formatar (máscara) CPF - Executa ao digitar no TextBox



Atribuir teclas de atalho (TextBox)



Deixar texto digitado sempre em formato Maiúsculo (TextBox)



As macros apresentadas acima devem ser utilizadas ao objeto TextBox (podem ser utilizadas a outros objetos como o ComboBox). Os exemplos podem ser adaptados para outras necessidades como formatar CNPJ, outros documentos que sigam uma lógica, padrões estabelecidos por empresas e/ou onde houver necessidade.

Para fazer isso de forma fácil, de dois cliques no objeto. Esta ação abrirá o módulo do fomulário, relacionado ao evento do objeto clicado.


macros, vba, úteis, textbox, excel, data, telefone, CPF, número, Editor do Visual Basic, VBA



No módulo, verifique se o evento criado é o desejado ou, altere para outro evento, selecionando entre os eventos listados na parte superior direita do Editor do Visual Basic (VBA).

Em breve mais dicas de Macros para Excel.

Confira também
Dicas de Macros para Excel - Parte 1 e Dicas de Macros para Excel - Parte 2

Marque como Favorito e Compartilhe com seus amigos ....
Consultor e Professor Ivair Claudio Ferrari


Um comentário:

  1. Excelentes dicas, adorei muito, não sabia da formatação do cpf!
    Então, em
    If Len(cdCPF) = 7 , sugiro trocar cdCPF por TextBox1
    If Len(cdCPF) = 11 , sugiro trocar cdCPF por TextBox1

    Obrigado!

    ResponderExcluir

Seja um participante desta comunidade !
Deixe aqui seu comentário e/ou sugestão.
Obrigado !

Ivair Claudio Ferrari