Microsoft desenvolveu uma aplicação add-on que vai criar uma função de números -to- palavras no Excel. A função irá converter o valor numérico de uma célula da planilha em texto , por exemplo, $ 1,29 vai aparecer como um dólar e vinte e nove centavos. Para converter números para palavras no Excel , a função precisa ser criado manualmente usando o Editor do Visual Basic , que vem padrão em todos os aplicativos do Office. Depois que a função foi criada, ela pode ser acessada através da barra de ferramentas do Excel para converter números para palavras em uma planilha. Instruções
Criando a função Números -to- palavras em Excel
1

Abra o programa Microsoft Excel.
2

Mantenha pressionada a tecla Alt e pressione F11 para abrir o Editor do Visual Basic.
3

Escolha "Inserir" da barra de ferramentas principal e clique em "Módulo ".
4

Copie e cole ou digite o seguinte Microsoft fórmula para o módulo :

Opção Explicit'Main FunctionFunction extenso (ByVal MyNumber ) Dólares Dim , centavos, TempDim DecimalPlace , CountReDim Place ( 9) No StringPlace (2) = " Mil" lugar (3) = "Million " Place ( 4) =" bilhão " lugar (5) =" trilhões " ' string representação amount.MyNumber = Trim ( Str ( MyNumber ))' Posição de casa decimal 0 se none.DecimalPlace = InStr ( MyNumber ,". " ) 'Converter centavos e definir MyNumber para dólar amount.If DecimalPlace > 0 ThenCents = Gettens ( Left ( Mid ( MyNumber , DecimalPlace + 1) & _ "00" , 2)) MyNumber = Trim ( Left ( MyNumber , DecimalPlace - 1 )) End IfCount = 1DO Enquanto MeuNumero <> " " Temp = GetHundreds (Direito ( MyNumber , 3) ) Se Temp < > "" Then Dólares = Temp & Place ( Contagem ) e DollarsIf Len ( MyNumber )> 3 ThenMyNumber = Esquerda ( MyNumber , Len ( MyNumber ) - 3) ElseMyNumber = " " End IfCount = Count + 1LoopSelect Caso DollarsCase " " Dólares = "Nenhum Dólares " Case " One" Dólares = " Um Dólar " Caso ElseDollars = Dólares e " Dólares " End SelectSelect Caso CentsCase " " Cents = "E não é Cents " caso " One" Cents = " e um centavo " ElseCents caso = "e" & Cents e " centavos " End SelectSpellNumber = Dólares & Função CentsEnd

' Converte um número de 100-999 em GetHundreds textFunction (ByVal MyNumber ) Resultado Dim StringIf Val ( MyNumber ) = 0 Then Exit FunctionMyNumber = Right ( "000" & MyNumber , 3) ' Converter as centenas place.If Mid ( varVezes , 1 , 1) <> " 0" ThenResult = ObterDigito ( Mid ( MyNumber , 1, 1) ) & " Hundred " End If ' Converter a dezenas e unidades place.If Mid ( MyNumber , 2, 1 ) < > "0" ThenResult = Resultado & Gettens ( Mid ( MyNumber , 2)) ElseResult = Resultado & ObterDigito ( Mid ( MyNumber , 3 )) End IfGetHundreds = ResultEnd Função

' Converte um número 10-99 em text.Function Gettens ( TensText ) Resultado Dim StringResult = ""' Null a função temporária value.If Val ( Left ( TensText , 1)) = 1 Then ' Se o valor entre 10-19 ... Select Case Val ( TensText ) Caso 10 : Resultado = " Ten " Caso 11: Resultado = Caso 12 " onze" : Resultado = Caso "Doze " 13: Resultado = " Thirteen " Caso 14: Resultado = " Quatorze " Caso 15: Resultado = " Quinze " Caso 16: Resultado = Caso " dezesseis" 17: Resultado = Caso " Seventeen " 18: Resultado = "Dezoito " Caso 19: Resultado = " Dezenove " Caso ElseEnd SelectElse ' Se valor entre 20-99 ... Select Case Val ( Left ( TensText , 1)) Caso 2: Resultado = Caso "Vinte " 3: Resultado = "Trinta " Caso 4: Resultado = "Quarenta " Caso 5: Resultado = "Cinquenta " Caso 6: Resultado = Caso "Sessenta " 7: Resultado = Caso " Setenta" 8: Resultado = Caso "Oitenta " 9: Resultado = "Noventa " Caso ElseEnd selectResult = Resultado & ObterDigito _ (Direito ( TensText , 1)) ' Recuperar os place.End IfGetTens = ResultEnd Função

' Converte um número de 1 a 9 em text.Function ObterDigito ( Digit ) Select Case Val ( Digit ) Caso 1: ObterDigito = "One" Caso 2: ObterDigito = " " Caso 3: ObterDigito = " Dois " Caso 4: ObterDigito = " Três " Caso 5: ObterDigito =" Four " Caso 6: ObterDigito =" Five " Caso 7 : ObterDigito =" Six " Caso 8 : ObterDigito =" Sete Oito " caso 9 : caso ObterDigito = " Nine" Else: ObterDigito = "" End SelectEnd Função
5

Escolha extenso a partir do menu suspenso do módulo
Alterar Números para . palavras em uma planilha
6

Abra uma planilha do Excel.
7

Selecione a célula em que você deseja converter números em texto , clicando na célula.

8

Clique na guia Função Paste /Insert ( fx) .
9

Clique em " Definido pelo usuário " no menu da esquerda e clique em " extenso " no menu do lado direito .
10

Digite o número que você deseja converter para palavras
11.

Clique em " OK". O número será exibido na célula como texto .