Skip to main content

Como converter números em palavras em rúpias indianas no Excel?

Author: Xiaoyang Last Modified: 2025-06-04

Converter números em palavras é um requisito comum, especialmente ao preparar documentos financeiros como faturas ou cheques. Embora o Excel não tenha uma função embutida para converter números em palavras, você pode alcançar isso usando VBA. Aqui está um guia passo a passo para converter números em palavras em rúpias indianas ou outra moeda.

Converter números em palavras em rúpias indianas com código VBA

Converter números em palavras em dólar inglês ou outra moeda com um recurso incrível


Converter números em palavras em rúpias indianas com código VBA

O seguinte código VBA pode ajudá-lo a converter números em palavras em rúpias, siga estas instruções:

1. Pressione e segure as teclas "ALT" + "F11" para abrir a janela "Microsoft Visual Basic for Applications".

2. Clique em "Inserir" > "Módulo" e cole o seguinte código na janela "Módulo".

Código VBA: Converter números em palavras em rúpias

Public Function RupeeFormat(SNum As String)
'Updateby Extendoffice
Dim xDPInt As Integer
Dim xArrPlace As Variant
Dim xRStr_Paisas As String
Dim xNumStr As String
Dim xF As Integer
Dim xTemp As String
Dim xStrTemp As String
Dim xRStr As String
Dim xLp As Integer
xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")
On Error Resume Next
If SNum = "" Then
  RupeeFormat = ""
  Exit Function
End If
xNumStr = Trim(str(SNum))
If xNumStr = "" Then
  RupeeFormat = ""
  Exit Function
End If

xRStr = ""
xLp = 0
If (xNumStr > 999999999.99) Then
    RupeeFormat = "Digit excced Maximum limit"
    Exit Function
End If
xDPInt = InStr(xNumStr, ".")
If xDPInt > 0 Then
    If (Len(xNumStr) - xDPInt) = 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))
    ElseIf (Len(xNumStr) - xDPInt) > 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))
    End If
        xNumStr = Trim(Left(xNumStr, xDPInt - 1))
    End If
    xF = 1
    Do While xNumStr <> ""
        If (xF >= 2) Then
            xTemp = Right(xNumStr, 2)
        Else
            If (Len(xNumStr) = 2) Then
                xTemp = Right(xNumStr, 2)
            ElseIf (Len(xNumStr) = 1) Then
                xTemp = Right(xNumStr, 1)
            Else
                xTemp = Right(xNumStr, 3)
            End If
        End If
        xStrTemp = ""
        If Val(xTemp) > 99 Then
            xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)
            If Right(Trim(xStrTemp), 3) <> "Lac" Then
            xLp = xLp + 1
            End If
        ElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 Then
            xStrTemp = RupeeFormat_GetT(Right(xTemp, 2))
        ElseIf Val(xTemp) < 10 Then
            xStrTemp = RupeeFormat_GetD(Right(xTemp, 2))
        End If
        If xStrTemp <> "" Then
            xRStr = xStrTemp & xArrPlace(xF) & xRStr
        End If
        If xF = 2 Then
            If Len(xNumStr) = 1 Then
                xNumStr = ""
            Else
                xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            End If
       ElseIf xF = 3 Then
            If Len(xNumStr) >= 3 Then
                 xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            Else
                xNumStr = ""
            End If
        ElseIf xF = 4 Then
          xNumStr = ""
    Else
        If Len(xNumStr) <= 2 Then
        xNumStr = ""
    Else
        xNumStr = Left(xNumStr, Len(xNumStr) - 3)
        End If
    End If
        xF = xF + 1
Loop
    If xRStr = "" Then
       xRStr = "No Rupees"
    Else
       xRStr = " Rupees " & xRStr
    End If
    If xRStr_Paisas <> "" Then
       xRStr_Paisas = " and " & xRStr_Paisas & " Paisas"
    End If
    RupeeFormat = xRStr & xRStr_Paisas & " Only"
    End Function
Function RupeeFormat_GetH(xStrH As String, xLp As Integer)
Dim xRStr As String
If Val(xStrH) < 1 Then
    RupeeFormat_GetH = ""
    Exit Function
Else
   xStrH = Right("000" & xStrH, 3)
   If Mid(xStrH, 1, 1) <> "0" Then
        If (xLp > 0) Then
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "
        Else
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "
        End If
    End If
    If Mid(xStrH, 2, 1) <> "0" Then
        xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))
    Else
        xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))
    End If
End If
    RupeeFormat_GetH = xRStr
End Function
Function RupeeFormat_GetT(xTStr As String)
    Dim xTArr1 As Variant
    Dim xTArr2 As Variant
    Dim xRStr As String
    xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    Result = ""
    If Val(Left(xTStr, 1)) = 1 Then
        xRStr = xTArr1(Val(Mid(xTStr, 2, 1)))
    Else
        If Val(Left(xTStr, 1)) > 0 Then
            xRStr = xTArr2(Val(Left(xTStr, 1)) - 1)
        End If
        xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))
    End If
      RupeeFormat_GetT = xRStr
End Function
Function RupeeFormat_GetD(xDStr As String)
Dim xArr_1() As Variant
    xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")
    If Val(xDStr) > 0 Then
        RupeeFormat_GetD = xArr_1(Val(xDStr) - 1)
    Else
        RupeeFormat_GetD = ""
    End If
End Function 

3. Após inserir o código, salve e feche a janela de código, volte para a planilha e insira a seguinte fórmula em uma célula em branco, depois arraste a alça de preenchimento para baixo para aplicar essa fórmula a outras células; todos os números terão sido escritos por extenso em rúpias.

=RupeeFormat(A2)

apply a formula to get the result


Converter números em palavras em dólar inglês ou outra moeda com um recurso incrível

Simplifique suas tarefas no Excel e aumente sua produtividade com o "Kutools para Excel". O "Kutools para Excel" oferece um recurso poderoso - "Números para Palavras", que oferece mais de 40 opções de conversão de moedas, ajudando você a converter rapidamente números em YUAN chinês, dólares ingleses ou qualquer outra moeda com apenas alguns cliques.

Kutools para Excel oferece mais de 300 recursos avançados para simplificar tarefas complexas, aumentando a criatividade e a eficiência. Integrado com capacidades de IA, o Kutools automatiza tarefas com precisão, tornando a gestão de dados fácil e eficiente. Mais informações sobre o Kutools para Excel...  Teste gratuito...

Após instalar o Kutools para Excel, siga estas instruções:

1. Selecione a lista de números que deseja converter e clique em "Kutools" > "Texto" > "Números para Palavras".

click Numbers to Words feature of kutools

2. Na caixa de diálogo "Números para Palavras de Moeda", selecione uma opção de moeda na seção "Idioma", veja a captura de tela:

specify options in the dialog box

3. Em seguida, clique no botão "OK", os números na seleção serão convertidos nas palavras da moeda específica que você precisa.

get the result by kutools

Clique para Baixar Kutools para Excel e Experimente Grátis Agora!



  • Barra de Fórmulas Super (edite facilmente várias linhas de texto e fórmulas); Layout de Leitura (leia e edite facilmente um grande número de células); Cole em Intervalo Filtrado...
  • Mesclar Células/Linhas/Colunas mantendo os dados; Dividir conteúdo de células; Combinar Linhas Duplicadas e Somar/Média... Prevenir Células Duplicadas; Comparar Intervalos...
  • Selecionar Linhas Duplicadas ou Únicas; Selecionar Linhas em Branco (todas as células estão vazias); Super Localizar e Localização Difusa em Muitas Pastas de Trabalho; Seleção Aleatória...
  • Cópia Exata de Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias planilhas; Inserir Marcadores, Caixas de Seleção e mais...
  • Favoritar e Inserir rapidamente Fórmulas, Intervalos, Gráficos e Imagens; Criptografar Células com senha; Criar Lista de Correspondência e enviar emails...
  • Extrair Texto, Adicionar Texto, Remover por Posição, Remover Espaço; Criar e Imprimir Estatísticas da Página de Dados; Converter entre o Conteúdo das Células e Comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro em outras planilhas); Classificação Avançada por mês/semana/dia, frequência e mais; Filtro Especial por negrito, itálico...
  • Consolidar Pastas de Trabalho e Planilhas; Mesclar Tabelas com base em colunas-chave; Dividir Dados em Múltiplas Planilhas; Conversão em Lote de xls, xlsx e PDF...
  • Agrupamento de Tabela Dinâmica por número da semana, dia da semana e mais... Mostrar Células Desbloqueadas, Bloqueadas por cores diferentes; Destacar Células Que Contêm Fórmula/Nome...
kte tab 201905
  • Habilite a edição e leitura com guias no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas abas da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques de mouse para você todos os dias!
officetab bottom