Nesse artigo vamos aprendas a formatar uma a text-box do Excel para CNPJ e CPF, de modo que ao digitar os números, os caracteres : ponto, barra e digito, serão adicionados automaticamente dentro da text-box. Para isso iremos usar o evento Keypress do Excel.

1º Passo-  Abra o editor de códigos do vba Excel e adicione um novo formulário 2 textbox e 2 label.

imagem1 

2º Passo-  Iremos mudar as propriedades das text-box e das label. Na propriedade (NAME) da text-box1 vamos mudar para CPF e a da text-box2 mudar para CNPJ .IMAGEM2

IMAGEM3

Já as da Label iremos mudar as propriedades (CAPTION) na propriedade da label1 iremos mudar também para CPF e a da label2 para CNPJ.IMAGEM4

IMAGEM3

Tenha muita ATENÇÃO na hora de renomear esses parâmetros, pois eles serão importantes para que não ocorra erros na hora de executar o seu trabalho.

 

 3º Passo – Dê um duplo click dentro da text box CPF que renomeamos, e no canto superior esquerdo iremos mudar o evento para keypress. imagem 6

4º Passo copie o código a baixo e cole dentro do evento keypress do CPF.

Select Case KeyAscii
Case 8, 48 To 57
Me.CPF.MaxLength = 14
If Len(CPF) = 3 Then CPF = CPF + "."
If Len(CPF) = 7 Then CPF = CPF + "."
If Len(CPF) = 11 Then CPF = CPF + "-"

Case Else
KeyAscii = 0
End Select

 Siga o mesmo Processo feito a cima com o CNPJ adiciona o evento keypress e cole o código que está a baixo dentro do evento.

cnpj.MaxLength = 18

Select Case KeyAscii
Case 8, 48 To 57
Me.cnpj.MaxLength = 18
If Len(cnpj) = 2 Then cnpj = cnpj + "."
If Len(cnpj) = 6 Then cnpj = cnpj + "."
If Len(cnpj) = 10 Then cnpj = cnpj + "/"
If Len(cnpj) = 15 Then cnpj = cnpj + "-"
Case Else
KeyAscii = 0
End Select

  5º  Passo – E último passo basta executa o projeto vba e pronto já estará funcionando.

imagen9

Teve alguma duvida sobre como fazer esse procedimento? click no botão e baixe a planilha de referência do artigo.

→CLIQUE AQUI PARA BAIXAR A PLANILHA DE REFEENCIA

Tags:

Sobre o Autor

Welisson Silva
Welisson Silva

Analista de Sistemas, trabalha com TI desde 2014. Especializado em Vendas Online, desenvolvedor, programador, guitarrista e entusiasta de tudo que envolva tecnologia.

1 Comentário

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *