VBA - CÁLCULO DO DÍGITO VERIFICADOR DO CPF

Objetivo:

Validar um CPF que tenha sido digitado em uma célula.


Versão que esta sendo usada para este aprendizado:

Excel 2007


Nota

Esta rotina também poderá ser utilizada pela versão do Excel 2003


Exemplo:

Passo 1:

Clique abaixo no botão Copiar texto.

Na planilha, clique com o botão direito do mouse onde esta escrito Plan1 e escolha a opção Exibir Código conforme figura abaixo

Após clicar em Exibir Código, vamos obter a seguinte tela.

Clique no segundo botão e insira um módulo.

Note que esta selecionado Módulo1 e o seu cursor esta na linha logo abaixo a palavra (Geral)

Neste ponto, dê um CTRL+V (Control V) para colar o texto copiado

Clique na parte superior esquerda (figura do Excel) para retornar à planilha

Na célula A1 digite 12345678901

Clique na célula B1 (local onde vamos colocar o texto alterado)

Clique em Fx

Em categoria selecione a opção Definida pelo usuário, escolha CPF e clique em Ok.

Em Argumentos da função digite A1 (local onde esta o nosso valor) e tecle Ok

Você irá obter o resultado conforme a figura abaixo

Para testar um CPF válido digite 12345678909


Nota: Para deixar a célula com a formatação de CPF, clique na célula com o botão direito do mouse e escolha a opção Formatar Células.

Na guia Número, escolha o item personalizado e digite 0##"."###"."###-##

Salve seu arquivo com o formato de macro - extensão .xlsm


Habilitando a planilha para uso
Se na hora da execução do programa, aparecer a mensagem abaixo, clique em opções.

Em seguida em Habilitar.


Baixe este modelo
ð Clique aqui - [Formato .ZIP]
 
Leia mais
ð Leia também as nossas dicas

Voltar página anterior   Voltar menu funções


Faça um de nossos Cursos - clique aqui para mais detalhes

Comentários
 
 Deixe seu comentário
Nome
Email
Mensagem

Quantidade de caracteres digitados:   Limite máximo de 240 caracteres

     

 

Voltar página anterior   Voltar menu funções

 

Microsoft e o logotipo do Office são marcas registradas ou comerciais da Microsoft Corporation nos Estados Unidos e/ou em outros países