Data por extenso no Excel

Olá pessoal,

Pra quem gosta de trabalhar com o Excel e fazer suas planilhas automáticas, uma boa pedida é a Data por extenso.

 

Você pode usar em várias ocasiões como em uma nota promissória, por exemplo.

 

Um exemplo:

 

Data: 11/12/2013

Valor por extenso: onze de dezembro de dois mil e treze

 

Bem, então vamos aos fatos.

 

Crie sua planilha e salve.

 

Baixe o arquivo em .txt com o código das Datas por extenso no Excel.

 

Copie o texto por completo desta planilha (o código). Não pode ficar nenhuma parte sem ser selecionada.

 

Se clicar dentro do texto e der um Ctrl+a vai selecionar tudo pra você. Depois só dar um Ctrl+c e estará tudo copiado.

 

Agora, na planilha Excel criada, abra a parte de inserção do código. Você pode fazer isso clicando em Alt+F11.

 

Vai abrir uma caixa de texto do Microsoft Visual Basic for Applications. Se for uma planilha nova, deverá ter apenas algumas poucas linhas escritas. Apague tudo e cole o código da Data por extenso em Excel.

 

Vá em Arquivo / Salvar e depois em Arquivo / Fechar e voltar para o Microsoft Excel.

 

Pronto.

 

Vamos testar se deu tudo certo.

 

Em uma célula, digite uma data (A1): 11/12/2013

 

Em outra célula (A5), digite:

 

=ExtensoData(A1)

 

Onde: A1 é a célula que contém a data.

 

O valor mostrado deverá ser: onze de dezembro de dois mil e treze

 

Se deu tudo certo, beleza. Conseguimos.

 

Se algo deu errado, confira as instruções novamente e vá passo a passo, não tem erro.

 

Testei aqui e deu tudo certo.

 

Grande abraço a todos.

 

Fonte:

' Desenvolvida por Cesar Rocha  - em 08/01/1999
' Modificada por Furlanetto  - em 10/12/2003
' Modificada por InfoGordo  - em 11/12/2013