Data por extenso no Excel

0 comentários

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