Como converter um valor numérico em uma palavra inglesa?

O Office Software Excel, oferece aos usuários a opção de realizar várias operações nos dados nos campos da planilha. Uma função definida pelo usuário pode ser usada para converter um valor numérico em uma palavra inglesa . Algum conhecimento de conceitos de programação, como funções e técnicas de loop, ajudaria a entender e escrever as funções, mas não é essencial. Há muitos recursos disponíveis na Internet onde as funções que podem ser usadas para converter um valor numérico em uma palavra em inglês podem ser baixadas e incluídas nas planilhas do Excel gratuitamente.

Para converter um valor numérico em uma palavra em inglês, aqui está a fórmula que você precisará :

Este é um post do fórum, graças a rajput391

Abaixo, você encontrará o código para inserir em sua planilha do Excel:

1. Pressione Alt + F11> copiar e colocar no módulo (se o módulo não mostrar módulo de inserção, clique em inserir na barra de menu> Módulo)

2. Alt + Q Salvar código e retornar para a planilha Excel

3. Inserir> função> definido pelo usuário> A1 ou célula relevante

 Palavras de função (fig, Ponto opcional = "Ponto") As String Dim dígito (14) As Integer alpha = Array ("", "Um", "Dois", "Três", "Quatro", "Cinco", "Seis" ", " Sete ", " Oito ", " Nove ", " Dez ", " Onze ", " Doze ", " Treze ", " Quatorze ", " Quinze ", " Dezesseis ", " Dezessete ", " Dezoito ", "Dezenove", "Vinte", "Trinta", "Quarenta", "Cinqüenta", "Sessenta", "Setenta", "Oitenta", "Noventa") figi = Trim (StrReverse (Str (Int (Abs) )))) Para i = 1 Para Len (figi) dígito (i) = Médio (figi, i, 1) Próximo Para i = 2 Para Len (figi) Passo 3 Se dígito (i) = 1 Então dígito (i) = dígito (i - 1) + 10: dígito (i - 1) = 0 Outro: Se dígito (i)> 1 Então dígito (i) = dígito (i) + 18 Fim Se Próximo Para i = 1 Para Len (figi ) Se (i Mod 3) = 0 E dígito (i)> 0 Então palavras = "cem" & palavras Se (i Mod 3) = 1 E dígito (i) + dígito (i + 1) + dígito (i + 2 )> 0 Então _ palavras = Escolha (i / 3, "mil", "milhão", "bilhão") & palavras palavras = Trim (alfa (dígito (i)) & "" & palavras) Seguinte Se fig Int (fig ) Então figc = StrReverse (figi) Se figc = 0 Então figc = "" figd = Trim (WorksheetFunction.Su bstitute (Str (Abs (figo)), figc & ".", "")) palavras = Trim (palavras & "" & ponto) Para i = 1 Para Len (figd) Se Val (Mid (figd, i, 1 ))> 0 Então palavras = palavras & "" & alfa (Meados (figd, i, 1)) Else: palavras = palavras & "Zero" Fim Se Próximo Fim Se Se fig <0 Então palavras = "Negativo" & palavras Fim Função