Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Guest tonnyjc

Conversões No Microsoft Excel

Recommended Posts

Guest tonnyjc

Gostaria de saber como devo fazer para converter valores numéricos em texto.

Ex:

Resultado da fórmula: R$ 150,00

Resultado da conversão: cento e cincoenta reais.

Alguém pode me ajudar???

Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

aí velhinho,,,

No Excel

Existe uma DLL (biblioteca de funções) gratuita que circula na Internet chamada Extens32.dll, que você pode baixar de www.pala.com.br/downloads/Extens32.dll. Coloque-a no diretório \Windows\System de seu computador. Entre no Microsoft Excel, e escolha Ferramentas, Macro, Editor do Visual Basic. No Editor, selecione Inserir, Módulo e digite o código a seguir:

Declare Function extenso Lib "Extens32.dll" (ByVal Valor As String, ByVal Retorno As String) As Integer

Function PassaExtenso(Valor As String) As String

Dim Retorno$, x%

Retorno$ = Space$(512)

x% = extenso(Valor, Retorno$)

PassaExtenso = TriMicrosoft(Retorno$)

End Function

Pode fechar o Editor do Visual Basic, clicando em Arquivo, Fechar e Retornar ao Microsoft Excel. Em seguida, no Excel, selecione Arquivo, Salvar como. Em Salvar Como Tipo, selecione Template (extensão XLT). Escolha a pasta de templates, que geralmente é C:\Windows\Application Data\Microsoft\Templates ou C:\Windows\Profiles\user_name\Application Data\Microsoft\Templates. Agora, sempre que for criar uma nova planilha, selecione Arquivo, Novo, e escolha o template que você criou, e a função estará disponível.

Para utilizá-la, basta digitar na planilha a função =PassaExtenso(valor), substituindo valor pelo número que você deseja ver escrito por extenso.

fui...

Compartilhar este post


Link para o post
Compartilhar em outros sites
Guest tonnyjc

Fala garoto!!!!!

Efetuei todas as etapas que me passou e criei a template.

Criei novo documento baseado na template criada, ativei a macro inseri os seguintes valores:

Célula A1: 1250

Célula c3: =PassaExtenso(A1)

Ao invés de ser retornado o valor da célula A1 como "mil, duzentos e cincoenta" retornou o erro "#VALOR!.

Será que fiz algo errado????

Más mesmo assim agradeço pela dica!!!!!!

Valeu!!!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites
Guest Sniper225

boas,

eu não sei se deveria escrever aqui, mas visto que o assunto é praticamente o mesmo, aproveito o post. :rolleyes:

O metodo acima explicado funciona. So que gostaria de saber se haveria alguma forma de alterar os valores , neste caso gostava de substituir o real por Euros e centavo por cêntimo :unsure: , é possivel? :rolleyes:

Agradeço desde já

Sniper225

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×