Como converter números em letras de texto Excel 2019 ou Excel 2016

O Microsoft Excel é uma das ferramentas mais poderosas com a qual será possível administrar e controlar grandes quantidades de dados de diversos tipos (números, datas, texto, etc.), obrigado às suas centenas de funções, fórmulas e ferramentas integradas que permitem ter o controle total sobre cada dado inserido nas planilhas ativas. Uma das tarefas que podem ser recorrentes ou úteis no Excel, tanto em 2016 quanto em 2019, é a conversão de números em letras. Isso é especialmente útil se estivermos na área de contabilidade ou finanças, pois ajuda a gerar valores diretamente em letras, o que é comum na verificação de cheques, por exemplo.

Embora o Microsoft Excel 2016 e o nova edição 2019 repleta de funções, o Excel não possui uma função integrada que seja responsável por exibir os números como palavras em uma planilha, o que pode ser um problema ou falha para muitos usuários. Para conseguir esta conversão, devemos criar um código de função SpellNumber em um módulo VBA (Visual Basic for Applications) que irá automatizar esta ação.

AdminGuides irá explicar em detalhes como fazer isso no Microsoft Excel 2019, mas o mesmo processo se aplica a Excel 2016 ..

Criar a função SpellNumber para converter números em palavras no Microsoft Excel 2019, 2016

Para realizar este processo devemos acessar o Editor Visual Basic (VBE) janela que pode ser acessada com as seguintes teclas.

+ F11 Alt + F11

Outro método alternativo é usar o menu do Programador, caso não o tenha (lembre-se que está desabilitado por padrão), devemos ir ao menu 'Arquivo / Opções' e depois ir para a seção 'Personalizar a faixa de opções':

Lá vamos nós para o lado direito e vamos ativar o “Programador”? e clique em OK, lembre-se que com este menu será possível:

• Escrever macros

• Usar comandos XML.

• Usar ActiveX controles.

• Execute macros gravadas anteriormente.

• Crie aplicativos para uso com programas do Microsoft Office.
• Use controles de formulário no Microsoft Excel.

• Trabalhe com o ShapeSheet no Microsoft Visio.

• Crie novas formas e galerias de símbolos no Microsoft Visio.

Uma vez acessamos a janela do Editor do Visual Basic, vamos ao menu â € œInserirâ € ?? e lá selecionamos o “Módulo”? option:

Na nova janela exibida, colaremos o seguinte conteúdo:

 Option Explicit 'Função principal Função SpellNumber (ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place (9) As String Place (2) = 'Mil' Place (3) = 'Millon' Place (4) = 'Billon' Place (5) = 'Trillon' 'Representação de String da quantidade. MyNumber = Trim (Str (MyNumber)) 'Posição da casa decimal 0 se nenhuma. DecimalPlace = InStr (MyNumber,'. ')' Converta centavos e defina MyNumber para o valor em dólares. Se DecimalPlace u0026 gt; 0 Então Cents = GetTens (Left (Mid (MyNumber, DecimalPlace + 1) u0026 amp; '00', 2)) MyNumber = Trim (Left (MyNumber, DecimalPlace - 1)) End if Count = 1 Do While MyNumber u0026 lt; u0026 gt; '' Temp = GetHundreds (Right (MyNumber, 3)) If Temp u0026 lt; u0026 gt; '' Então, dólares = Temp u0026 amp; Local (contagem) u0026 amp; Dólares se Len (MyNumber) u0026 gt; 3 Then MyNumber = Left (MyNumber, Len (MyNumber) - 3) Else MyNumber = '' End if Count = Count + 1 Loop Select Case Dollars Case '' Dollars = 'Não há dollars' Case 'One' Dollars = 'One Dollar 'Case Else Dollars = Dollars u0026 amp; 'Dollars' End select Select Case Cents Case '' Cents = 'Sem centavos' Case 'One' Cents = 'E um penny' Case Else Cents = 'e' u0026 amp; Centavos u0026 amp; Finalizar 'Cents' selecione SpellNumber = Dólares u0026 amp; Cents End function 'Converte um número de 100-999 em texto Função GetHundreds (ByVal MyNumber) Dim Result As String If Val (MyNumber) = 0 Then Exit Function MyNumber = Right (' 000 'u0026 amp; MyNumber, 3)' Converta as centenas Lugar, colocar. Se Mid (MyNumber, 1, 1) u0026 lt; u0026 gt; '0' Then Result = GetDigit (Mid (MyNumber, 1, 1)) u0026 amp; 'Mil' End if 'Converta as dezenas e as unidades. Se Mid (MyNumber, 2, 1) u0026 lt; u0026 gt;' 0 'Then Result = Result u0026 amp; GetTens (Mid (MyNumber, 2)) Else Result = Result u0026 amp; GetDigit (Mid (MyNumber, 3)) End if GetHundreds = Result End function 'Converte um número de 10 a 99 em texto. Função GetTens (TensText) Dim Result As String Result = '' 'Anula o valor da função temporária. If Val (Left (TensText, 1)) = 1 Then' If value between 10-19 ... Select Case Val (TensText) Caso 10: Resultado = 'Dez' Caso 11: Resultado = 'Uma vez' Caso 12: Resultado = 'Doze' Caso 13: Resultado = 'Treze' Caso 14: Resultado = 'Quatorze' Caso 15: Resultado = 'Quinze' Caso 16 : Result = 'Dezesseis' Caso 17: Result = 'Dezessete' Caso 18: Result = 'Dezoito' Caso 19: Result = 'Dezenove' Case Else End select Else 'Se o valor estiver entre 20-99 ... Selecione Case Val (à esquerda (TensText, 1)) Caso 2: Resultado = 'Vinte' Caso 3: Resultado = 'Trinta' Caso 4: Resultado = 'Quarenta' Caso 5: Resultado = 'Cinquenta' Caso 6: Resultado = 'Sessenta' Caso 7: Resultado = 'Setenta' Caso 8: Resultado = 'oitenta' Caso 9: Resultado = 'Noventa' Caso Else End selecione Resultado = Resultado e GetDigit (Right (TensText, 1)) 'Recupere um lugar. End if GetTens = Result End function 'Converte um número de 1 a 9 em texto. Função GetDigit (Digit) Selecione Case Val (Digit) Case 1: GetDigit =' One 'Case 2: GetDigit =' Two 'Case 3: GetDigit = 'Três' Caso 4: GetDigit = 'Quatro' Caso 5: GetDigit = 'Cinco' Caso 6: GetDigit = 'Seis' Caso 7: GetDigit = 'Sete' Caso 8: GetDigit = 'Oito' Caso 9: GetDigit = 'Nove 'Case Else: GetDigit =' 'End select End function 

Depois de inserir este script no editor do Excel, passamos a salvá-lo para tarefas futuras, para isso vamos para no menu “Arquivar / Salvar como” e na janela selecionamos a opção “Pasta de trabalho do Excel habilitada para macros” e atribuímos um nome ao mesmo, clique em Salvar e estaremos prontos para usar esta fórmula criada.

Assim que isso for feito, podemos usar dois métodos para converter números em letras no Excel 2019 ou 2016, estes são:

 = Spel lNumber (Cell) 

 = SpellNumber (18.45)