Converter números em palavras

Importante :  Este artigo foi traduzido por um sistema de tradução automática, leia o aviso de isenção de responsabilidade. Para sua referência, veja a versão em inglês deste artigo aqui.

Excel 2013 e Excel 2016 não têm uma função de padrão que exibe números como palavras em inglês em uma célula de planilha, mas você pode adicionar esse recurso colando o código de função EscreverNumero em uma planilha de módulo. Esta função permite que você converter valores de moeda e centavos para palavras.

Se você quiser converter valores numéricos em formato de texto sem exibi-las como palavras, use a função texto .

Neste artigo

Criar a função EscreverNumero para converter números em palavras

  1. Use o atalho de teclado Alt + F11 para abrir o Editor do Visual Basic.

    Observação : Você também pode acessar o Editor do Visual Basic, mostrando a guia Desenvolvedor na sua faixa de opções.

  2. Clique na guia Inserir e clique em módulo.

    No menu Inserir, clique em módulo.
  3. Copie as seguintes linhas de código.

    Observação : Este código conhecido como uma função de macro, automatiza a tarefa de converter números a texto em toda a sua planilha.

    Opção explícita

    ' Função principal

    Função EscreverNumero (ByVal MyNumber)

    Dim dólares, moedas, Temp

    Casa decimal a Dim, contagem

    ReDim Place(9) como cadeia de caracteres

    Place(2) = "Milhares"

    Place(3) = "milhões"

    Place(4) = "Bilhão"

    Place(5) = "trilhão"

    ' Representação do valor de cadeia de caracteres.

    MyNumber = Trim(Str(MyNumber))

    ' Posição da casa decimal 0 se nenhum.

    Casa decimal = InStr (MyNumber, ".")

    ' Converter centavos e definir MyNumber a quantidade de dólar.

    Se casa decimal > 0 então

    Centavos = GetTens (esquerda (Mid (MyNumber, casa decimal + 1) & _ "00", 2))

    MyNumber = ARRUMAR (esquerda (MyNumber, casa decimal - 1))

    Encerrar se

    Contagem = 1

    Enquanto MyNumber <> ""

    Temp = GetHundreds (direita (MyNumber, 3))

    Se Temp <> "", em seguida, dólares = Temp & Place(Count) & dólares

    Se Len(MyNumber) > 3 depois

    MyNumber = esquerda (MyNumber, Len(MyNumber) - 3)

    Else

    MyNumber = ""

    Encerrar se

    Contar = contar + 1

    Loop

    Selecione dólares maiusculas

    Caso ""

    Dólares = "Não dólares"

    Caso "Um"

    Dólares = "Dólar um"

    Caso mais

    Dólares = dólares & "Dólares"

    Finalizar seleção

    Selecione centavos maiusculas

    Caso ""

    Centavos = "e não centavos"

    Caso "Um"

    Centavos = "e um centavos"

    Caso mais

    Centavos = "e" & centavos & "Centavos"

    Finalizar seleção

    EscreverNumero = dólares & centavos

    Função de fim

    ' Converte um número de 100-999 em texto

    Função GetHundreds (ByVal MyNumber)

    Dim resultado como cadeia de caracteres

    Se Val(MyNumber) = 0 sair depois de função

    MyNumber = direita ("000" & MyNumber, 3)

    ' Converter centenas colocar.

    Se Mid (MyNumber, 1, 1), em seguida, <> "0"

    Resultado = GetDigit (Mid (MyNumber, 1, 1)) & "cem"

    Encerrar se

    ' Converter o lugar dezenas e aquelas.

    Se Mid (MyNumber, 2, 1), em seguida, <> "0"

    Resultado = resultado & GetTens (Mid (MyNumber, 2))

    Else

    Resultado = resultado & GetDigit (Mid (MyNumber, 3))

    Encerrar se

    GetHundreds = resultado

    Função de fim

    ' Converte um número de 10 a 99 em texto.

    Função GetTens(TensText)

    Dim resultado como cadeia de caracteres

    Resultado = "" ' nulo o valor da função temporária.

    Se Val (esquerda (TensText, 1)) = 1, em seguida, ' se valor entre 10-19...

    Selecione Val(TensText) maiusculas

    Caso 10: Resultado = "Dez"

    Caso 11: Resultado = "11"

    Caso 12: Resultar = "Doze"

    Caso 13: Resultar = "Treze"

    Caso 14: Resultar = "Fourteen"

    Caso 15: Resultar = "15"

    Caso 16: Resultar = "Dezesseis"

    Caso 17: Resultar = "Seventeen"

    Caso 18: Resultar = "Dezoito"

    Caso 19: Resultar = "Dezenove"

    Caso mais

    Finalizar seleção

    Pessoa ' se valor entre 20-99...

    Selecione caso 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 = "Seventy"

    Caso 8: Resultado = "Oitenta"

    Caso 9: Resultado = "Ninety"

    Caso mais

    Finalizar seleção

    Resultado = _ resultado & GetDigit

    (Direita (TensText, 1)) ' Recuperar aquelas local.

    Encerrar se

    GetTens = resultado

    Função de fim

    ' Converte um número de 1 a 9 em texto.

    Função GetDigit(Digit)

    Selecione Val(Digit) maiusculas

    Caso 1: GetDigit = "Um"

    Caso 2: GetDigit = "Dois"

    Caso 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"

    Caso mais: GetDigit = ""

    Finalizar seleção

    Função de fim

  4. Cole as linhas de código para o Módulo1 (código) caixa.

    Código colado no Módulo1 caixa (código).
  5. Clique em arquivo e clique em Fechar e retornar ao Microsoft Excel. A função EscreverNumero agora está pronta para uso.

    Observação : Esta função funciona somente para o arquivo atual do Excel abertos. Para usar essa função em outra pasta de trabalho de Excel, você deverá repetir as etapas para copiar e colar o código no arquivo.

Início da página

Use a função EscreverNumero em células individuais

  1. Digite a fórmula = EscreverNumero (valor) na célula onde você deseja exibir um número escrito, substituindo o valor com o número de escolha.

  2. No teclado, pressione Enter.

    Por exemplo, se você digitar =SpellNumber(22.50), a célula leia Vinte e dois reais e 50 centavos.

    Dica : Para converter números em texto em uma célula separada, substitua o valor numérico uma referência de célula na fórmula EscreverNumero. Por exemplo, digite =SpellNumber(A1) para exibir o valor escrito da célula A1.

Início da página

Salvar sua pasta de trabalho de função EscreverNumero

Excel não pode salvar uma pasta de trabalho com funções de macro no formato de pasta de trabalho sem macro padrão. Se você clicar em arquivo > Salvar. Abre uma caixa de diálogo de projeto do VB. Clique em não.

Na caixa de diálogo de projeto do VB, clique em não.

Você pode salvar seu arquivo como um Modelo de Excel Macro-Enabled para manter o arquivo em seu formato atual.

  1. Clique em Arquivo > Salvar Como.

  2. Clique no menu de lista suspensa Salvar como tipo e selecione Excel Macro-Enabled Template.

    Escolha o modelo habilitado para Macro do Excel.
  3. Clique em Salvar.

Início da página

Observação : Aviso de Isenção de Tradução Automática: Este artigo foi traduzido por computador, sem intervenção humana. A Microsoft oferece essas traduções automáticas para ajudar as pessoas que não falam inglês a aproveitar os textos escritos sobre produtos, serviços e tecnologias da Microsoft. Como este artigo foi traduzido automaticamente, é possível que contenha erros de vocabulário, sintaxe ou gramática.

Consulte Também

Função TEXTO

Expanda suas habilidades
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Office Insider

Essas informações foram úteis?

Obrigado por seus comentários!

Agradecemos pelos seus comentários! Parece que pode ser útil conectar você a um de nossos agentes de suporte do Office.

×