Como escrever números por extenso ou convertê-los em palavras em inglês no Excel?
Converter números nos respetivos equivalentes por extenso em inglês no Excel pode revelar-se uma competência valiosa, especialmente em relatórios financeiros, faturação ou emissão de cheques. Embora o Excel não inclua uma função incorporada para este efeito, existem vários métodos eficazes para o conseguir. Este artigo orienta-o pelas abordagens mais eficientes para converter números em palavras no Excel, acompanhadas de dicas práticas para otimização.
Escrever números por extenso ou convertê-los em palavras em inglês com código VBA
O seguinte código VBA extenso permite-lhe soletrar números em cadeias de texto. Siga os passos abaixo:
1. Mantenha premidas as teclas «ALT + F11» para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em «Inserir» > «Módulo» e cole a macro seguinte na janela do Módulo.
VBA: Escrever números monetários por extenso em palavras em inglês no Excel
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, guarde o código e regresse à folha de cálculo. Na célula adjacente B2, introduza a fórmula =SpellNumberToEnglish(A2), conforme ilustrado na imagem:
4. Depois, prima Enter, selecione a célula C2 e arraste a alça de preenchimento até ao intervalo que contém esta fórmula, conforme necessário. Todos os valores monetários serão automaticamente convertidos por extenso em palavras em inglês. Veja a imagem:
Escrever números por extenso ou convertê-los em palavras em inglês com Kutools para Excel
Simplifique as suas tarefas no Excel e aumente a produtividade com o Kutools para Excel. A sua poderosa funcionalidade Converter em Palavras oferece mais de 40 opções de conversão de moeda, permitindo-lhe transformar facilmente números em palavras — quer sejam dólares norte-americanos, yuans chineses ou qualquer outra moeda — com apenas alguns cliques.
1. Selecione os números do intervalo que pretende converter por extenso e clique em «Kutools» > «Conteúdo» > «Converter em Palavras».
2. Na caixa de diálogo exibida, selecione «Inglês» em «Idiomas». Pode pré-visualizar os resultados no painel «Pré-visualização», à direita. Veja a imagem:
3. Em seguida, clique em OK ou em Aplicar. Todos os valores monetários serão convertidos em cadeias de texto no intervalo original.
Nota: Se pretender converter números apenas em palavras em inglês (sem moeda), marque a caixa de verificação «Não converter para moeda».
Ao seguir os passos e otimizações descritos neste guia, poderá converter eficientemente números em palavras e simplificar o seu fluxo de trabalho. Quer esteja a preparar relatórios financeiros ou a criar faturas, dominar esta competência poupar-lhe-á tempo e esforço. Se estiver interessado em explorar mais dicas e truques do Excel, o nosso site disponibiliza milhares de tutoriais.
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