Escrevendo Valores por Extenso - 16 bits (Excel 5)

Em muitas empresas, vários profissionais necessitam de preparar relatórios onde, invariavelmente, muitos valores monetários aparecem. É praxe que num relatório profissional todos esses valores sejam grafados tanto na sua forma numérica, quanto na sua forma por extenso. Não é aceitável a simples menção do valor monetário, como R$ 123,45. É mais do que uma praxe citar, entre parêntesis, tal valor por extenso, como Cento e vinte e três reais, e quarenta e cinco centavos.

É uma tarefa tediosa e, principalmente, sujeita a erros. A solução é criar uma macro para resolver tal problema.

Mas melhor do que macro é usar uma biblioteca toda para isso, e foi o que o Analista Antonio Augusto Ferreira, de São Paulo, fez. Ele disponibilizou uma biblioteca - no formato DLL - para os programas feitos para rodar em 16 bits (Word, Excel e Access), e mais, também disponibilizou uma macro prontinha - e testada - para você colocar direto, sem muito trabalho, no seu Excel 5 ou superior. [ Atenção: se você possui a Versão 7 - 32 bits - clique aqui ].

Siga os passos indicados abaixo, dê um download no arquivo EXTEXC16.ZIP (são apenas 11,3 KBytes - menos de 10 segundos de download) para seu disco, e passe a desfrutar do poder de escrever um valor qualquer, em extenso correto - tudo com a simples colocação de uma nova função na célula desejada:

1. Primeiro: faça o Download do arquivo EXTEXC16.ZIP, que contém a biblioteca DLL e a Macro para o Excel 5;
   
   
2. Segundo: Extraia os arquivos que estão zipados no EXTEXC16.ZIP (são eles: a biblioteca EXTENS16.DLL, e a Macro MACRO16.TXT); lembre-se de que a biblioteca dll deve ser copiada para a pasta SYSTEM que se encontra dentro da pasta WINDOWS (ou se você gosta dos bons tempos do DOS: para o diretório \WINDOWS\SYSTEM);
   
   
3. Terceiro: Crie a macro no Excel ....: Abra o arquivo MACRO16.TXT e copie para a memória o trecho indicado pelo título, em maiúsculas, para o Excel 5.0); abra o Excel e, na planilha desejada - abra-a agora se for necessário, selecione o menu Inserir * Macro * Módulo; na janela que se abre cole o texto que está na memória; e - finalmente - salve a planilha para disco;
   
   
4. Quarto: Coloque a fórmula, que aciona a macro, e a biblioteca de Extenso (a EXTENS16.DLL), na célula desejada, referenciando uma célula que possui o valor numérico que se quer passar para o extenso; a fórmula pode ser num dos estilos abaixo indicados:
   1. =PASSAEXTENSO(F5) [simplesmente escreve o valor por extenso];
   2. =ESQUERDA(PASSAEXTENSO(F5);80)
      &REPT("*";80-NÚM.CARACT(PASSAEXTENSO(F5))) [escreve o valor por extenso e completa - no caso até 80 caracteres - com o símbolo *];
      (atenção: esta linha deve ser digitada numa única célula)
      
5. Quinto: Comece a usar sua nova MACRO DE EXTENSO;

Não se esqueça de três pequenos detalhes para que todo esse processo possa funcionar:

• A folha de modelo com a macro do Excel, deve estar sempre disponível;
• Pode ser criada uma folha de modelo global, que estará sempre disponível para uso em qualquer planilha; para fazer isto você deve abrir o arquivo PESSOAL.XLS que se encontra no diretório \MSOFFICE\EXCEL\XLINICIO;(*)
• Se seu Excel está em inglês, use a macro correspondente em MACRO.TXT, senão não vai funcionar.

(*) Deverá ser feita uma alteração nesta fórmula, se for desejado se utilizar da folha de modelo global; ao invés da fórmula ser digitada como =PASSAEXTENSO(F5), deverá ser utilizada a fórmula =PESSOAL.XLS!PASSAEXTENSO(F5); desse modo a função será corretamente chamada.