Como converter moeda em texto por extenso no Excel?

Para falantes não nativos que utilizam o inglês como segunda língua, às vezes é difícil converter diretamente números de moedas em palavras em inglês quando o número é muito longo. Neste artigo, você aprenderá como converter facilmente moedas em texto por extenso no Excel.

Converter moeda em palavras com código VBA
Converter moeda em palavras com Kutools para Excel

---

Converter moeda em palavras com código VBA

Com o código VBA abaixo, você pode converter números de moedas em palavras em inglês.

1. Pressione Alt + F11 para abrir a caixa de diálogo Microsoft Visual Basic for Applications.

2. Na caixa de diálogo Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código abaixo na janela de código.

Código VBA: Converter números de moedas em palavras em inglês

Function NumberstoWords(ByVal pNumber)
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
NumberstoWords = 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. Pressione simultaneamente as teclas Alt + Q para fechar a caixa de diálogo Microsoft Visual Basic for Applications.

4. Selecione uma célula em branco (B1) adjacente à célula que deseja converter em palavras, insira a fórmula =NumberstoWords(A1) e pressione a tecla Enter.

Observação: A1 é a célula que contém o número da moeda. Você pode alterá-la conforme necessário.

5. Selecione a célula B1, arraste a Alça de Preenchimento para baixo para obter todas as palavras em inglês dos números de moedas.

---

Converter moeda em palavras com Kutools para Excel

Este longo código VBA parece complicado. Aqui vou apresentar uma ferramenta prática para resolver facilmente esse problema. Com o utilitário "Numbers to Words" do Kutools para Excel, converter moedas em palavras não será mais um problema. Por favor, siga os passos abaixo.

1. Selecione as células com os números de moedas que deseja converter.

2. Clique em Kutools > Texto > Numbers to Words. Veja a captura de tela:

3. Na caixa de diálogo Numbers to Currency Words, selecione a opção Inglês e clique no botão OK ou Aplicar.

Agora os números de moedas selecionados são convertidos imediatamente em palavras em inglês.