Formula para Escrever por Extenso no Excel 2010

Para escrever um número por extenso no Excel 2010, você pode usar a seguinte fórmula:

=EXT.TEXTO(123,50)

Substitua "123" pelo número que deseja converter em palavras.

Você também pode usar uma função personalizada no VBA do Excel para converter números em palavras. Esta é uma fórmula mais avançada, mas pode ser útil se você precisar converter muitos números em palavras regularmente.

Para usar uma função personalizada, siga as etapas abaixo:

1. Pressione Alt + F11 no Excel para abrir o editor VBA.
2. Clique em "Inserir" e selecione "Módulo".
3. Cole o seguinte código na janela do módulo:

Function NumeroPorExtenso(ByVal Numero As Double) As String

Dim Unidades(20) As String Dim Dezenas(10) As String Dim Centenas(10) As String Dim Milhares(10) As String Dim Milhoes(10) As String Dim Bilhoes(10) As String Unidades(0) = "zero" Unidades(1) = "um" Unidades(2) = "dois" Unidades(3) = "três" Unidades(4) = "quatro" Unidades(5) = "cinco" Unidades(6) = "seis" Unidades(7) = "sete" Unidades(8) = "oito" Unidades(9) = "nove" Unidades(10) = "dez" Unidades(11) = "onze" Unidades(12) = "doze" Unidades(13) = "treze" Unidades(14) = "quatorze" Unidades(15) = "quinze" Unidades(16) = "dezesseis" Unidades(17) = "dezessete" Unidades(18) = "dezoito" Unidades(19) = "dezenove" Dezenas(2) = "vinte" Dezenas(3) = "trinta" Dezenas(4) = "quarenta" Dezenas(5) = "cinquenta" Dezenas(6) = "sessenta" Dezenas(7) = "setenta" Dezenas(8) = "oitenta" Dezenas(9) = "noventa" Centenas(1) = "cem" Centenas(2) = "duzentos" Centenas(3) = "trezentos" Centenas(4) = "quatrocentos" Centenas(5) = "quinhentos" Centenas(6) = "seiscentos" Centenas(7) = "setecentos" Centenas(8) = "oitocentos" Centenas(9) = "novecentos" Milhares(1) = "mil" Milhares(2) = "milhões" Milhares(3) = "bilhões" Dim S As String S = "" If Numero < 0 ThenS = "menos "Numero = Abs(Numero) End If If Numero < 20 ThenS = S & Unidades(Numero) ElseIf Numero < 100 ThenS = S & Dezenas(Int(Numero / 10))If Numero Mod 10 > 0 Then  S = S & " e " & Unidades(Numero Mod 10)End If ElseIf Numero < 1000 ThenIf Numero = 100 Then  S = S & Centenas(1)Else  S = S & Centenas(Int(Numero / 100))  If Numero Mod 100 > 0 Then S = S & " e " & NumeroPorExtenso(Numero Mod 100)  End IfEnd If ElseIf Numero < 1000000 ThenS = S & NumeroPorExtenso(Int(Numero / 1000)) & " " & Milhares(1) & " "If Numero Mod 1000 > 0 Then  S = S & NumeroPorExtenso(Numero Mod 1000)End If ElseIf Numero < 1000000000 ThenS = S & NumeroPorExtenso(Int(Numero / 1000000)) & " " & Milhares(2) & " "If Numero Mod 1000000 > 0 Then  S = S & NumeroPorExtenso(Numero Mod 1000000)End If ElseS = S & NumeroPorExtenso(Int(Numero / 1000000000)) & " " & Milhares(3) & " "If Numero Mod 1000000000 > 0 Then  S = S & NumeroPorExtenso(Numero Mod 1000000000)End If End If NumeroPorExtenso = S 

End Function

4. Salve o módulo com um nome, como "ConverterNumero".
5. Na célula do Excel em que deseja escrever o número por extenso, digite a seguinte fórmula: =ConverterNumero(123) (substituindo "123" pelo número que deseja converter).
6. Pressione Enter para ver o número por extenso.

Note que a função personalizada suporta números negativos e pode converter números até bilhões. Personalize o código conforme necessário para atender às suas necessidades.