Como converter rapidamente moeda em palavras no Excel?
Ao trabalhar com dados financeiros no Excel, poderá surgir a necessidade de converter valores monetários em texto — por exemplo, ao escrever o valor de um cheque por extenso. Infelizmente, o Excel não inclui uma função incorporada para essa finalidade, mas existem duas abordagens eficazes para alcançar esse resultado. Este artigo orienta-o passo a passo por ambos os métodos, ajudando-o a escolher a solução mais adequada às suas necessidades.
Escrever moeda por extenso Converter em Palavras com código VBA
Escrever moeda por extenso Converter em Palavras com Kutools para Excel 
Escrever moeda por extenso Converter em Palavras com código VBA
No Excel, não é possível converter rapidamente números em palavras em inglês sem recorrer ao VBA.
1. Prima as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em «Inserir» > «Módulo» e cole o seguinte código VBA na nova janela do módulo.
VBA: Converter valores monetários em palavras em inglês
Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
xHundred = ""
xValue = Right(pNumber, 3)
If Val(xValue) <> 0 Then
xValue = Right("000" & xValue, 3)
If Mid(xValue, 1, 1) <> "0" Then
xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
End If
If Mid(xValue, 2, 1) <> "0" Then
xHundred = xHundred & GetTens(Mid(xValue, 2))
Else
xHundred = xHundred & GetDigit(Mid(xValue, 3))
End If
End If
If xHundred <> "" Then
Dollars = xHundred & arr(xIndex) & Dollars
End If
If Len(pNumber) > 3 Then
pNumber = Left(pNumber, Len(pNumber) - 3)
Else
pNumber = ""
End If
xIndex = xIndex + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
Select Case Val(pTens)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else
Select Case Val(Left(pTens, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function3. Em seguida, guarde este código e prima Fechar esta janela para regressar à folha de cálculo. Selecione uma célula vazia e introduza a seguinte fórmula: =SpellNumberToEnglish(A2)(onde A2 contém os valores monetários) e prima Enter. Em seguida, arraste a alça de preenchimento para baixo para aplicar a fórmula às células pretendidas. Veja as capturas de ecrã:
Escrever moeda por extenso Converter em Palavras com a prática função Soletrar Números
Para quem não pretende utilizar VBA, o Kutools para Excel oferece uma solução simples e rápida — basta um clique para converter números em texto. A funcionalidade «Converter em Palavras» do Kutools para Excel suporta a conversão de números em texto em mais de 40 formatos monetários diferentes, tornando-a ideal para relatórios financeiros e transações internacionais. Com apenas alguns cliques, os utilizadores transformam valores numéricos em texto monetário totalmente formatado em várias moedas, incluindo USD, EUR, GBP, JPY, CNY, entre outras, eliminando conversões manuais e reduzindo erros.
1. Selecione os valores monetários e clique em «Kutools» > «Conteúdo» > «Converter em Palavras». Veja a captura de ecrã:
2. Na caixa de diálogo «Converter minúsculas para maiúsculas», escolha o idioma que pretende utilizar; aqui selecionarei a opção «Inglês» na lista suspensa «Idiomas». Veja a captura de ecrã:
3. Clique em «OK» ou «Aplicar». Os valores monetários selecionados serão então convertidos em texto monetário correspondente.
Converter valores monetários em texto no Excel pode ser feito de forma eficiente, quer com VBA, quer com o Kutools para Excel. Ao implementar qualquer um destes métodos, automatiza relatórios financeiros e elimina erros causados por digitação manual. Se estiver interessado em explorar mais dicas e truques do Excel, o nosso site oferece milhares de tutoriais para o ajudar a dominar o Excel.
Demonstração: Converter valor monetário em texto com Kutools para Excel
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos