Como converter rapidamente números de moeda em palavras no Excel?

Ao trabalhar com dados financeiros no Excel, pode haver momentos em que você precise converter números de moeda em palavras, como ao escrever o valor de cheques. Infelizmente, o Excel não fornece uma função embutida para isso, mas existem dois métodos eficazes para alcançar esse objetivo. Este artigo irá guiá-lo por ambos os métodos, ajudando você a escolher a melhor abordagem com base nas suas necessidades.

Escreva números de moeda em palavras com código VBA

Escreva números de moeda em palavras com Kutools para Excel

Escreva números de moeda em palavras com código VBA

No Excel, você não pode converter rapidamente números em palavras em inglês, exceto com VBA.

1. Pressione as teclas "Alt + F11" para abrir a janela "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 números de moeda 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 Function

3. Em seguida, salve este código e feche a janela para voltar à planilha, selecione uma célula em branco e digite esta fórmula: =SpellNumberToEnglish(A2) (A2 é o número da moeda), e pressione a tecla Enter, depois arraste a alça de preenchimento para baixo para aplicar essa fórmula às células que você precisa. Veja as capturas de tela:

Escreva números de moeda em palavras com a prática função Escrever Números por Extenso

Para aqueles que não querem usar VBA, o Kutools para Excel oferece uma maneira simples e com um clique para converter números em palavras. O recurso "Converter em Palavras" no Kutools para Excel suporta a conversão de números em palavras em mais de 40 formatos diferentes de moedas, tornando-o uma solução ideal para relatórios financeiros e transações internacionais. Com apenas alguns cliques, os usuários podem transformar valores numéricos em texto de moeda totalmente formatado em vários idiomas, incluindo USD, EUR, GBP, JPY, CNY e muito mais, eliminando a necessidade de conversões manuais e reduzindo erros.

1. Selecione os números de moeda e clique em "Kutools" > "Texto" > "Converter em Palavras". Veja a captura de tela:

2. Na caixa de diálogo "Converter Números em Palavras de Moeda", escolha o idioma que deseja usar; aqui vou selecionar a opção "Inglês" na caixa de listagem "Idioma", veja a captura de tela:

3. Clique em "OK" ou "Aplicar". Então, os números de moeda que você selecionou serão convertidos em palavras específicas de moeda.

Converter números de moeda em palavras no Excel pode ser feito de forma eficiente usando VBA ou Kutools para Excel. Ao implementar qualquer um desses métodos, você pode automatizar relatórios financeiros e eliminar erros de digitação manual. Se você estiver interessado em explorar mais dicas e truques do Excel, nosso site oferece milhares de tutoriais para ajudá-lo a dominar o Excel.

Demonstração: Converter Número de Moeda em Palavras usando Kutools para Excel