O Excel não oferece nenhuma função padrão que converta um número ou valor em palavras em rúpias indianas ou em qualquer moeda. Mas isso não significa que não podemos converter o número em rupias indianas. Podemos criar uma fórmula personalizada do Excel para converter números em palavras em rúpias indianas. Eu criei esta função personalizada para converter números em palavras em termos de rúpias indianas. Você pode baixar o arquivo de macro abaixo. Mencionei o código abaixo e expliquei um pouco, para que você possa fazer alterações de acordo com sua necessidade.
Função Excel para converter número em palavras em rupias indianas
Portanto, use esta função para converter qualquer valor ou número de 10 dígitos ou menos em palavras ou rúpias. Eu chamei esta função de NUM_TO_IND_RUPEE_WORD. A sintaxe desta função é:
| = NUM_TO_IND_RUPEE_WORD (número) |
Você pode baixar o arquivo de macro de trabalho:
Número para palavras rúpia indiana
Agora o código da função é mencionado abaixo.
Este código está dividido em quatro funções individuais. A função principal é NUM_TO_IND_RUPEE_WORD. E outras três funções GetHunderds (), GetTens () e GetDigits ajudam a função que ajuda a função principal a formar a string.
Função NUM_TO_IND_RUPEE_WORD (ByVal MyNumber, opcional incRupees As Boolean = True) Dim Crores, Lakhs, Rupees, Paise, Temp Dim DecimalPlace As Long, Count As Long Dim myLakhs, myCrores ReDim Place (9) As String Place (2) = "Mil" : Local (3) = "Milhão" Local (4) = "Bilhão": Local (5) = "Trilhão" 'Representação em cadeia da quantidade. MyNumber = Trim (Str (MyNumber)) 'Posição da casa decimal 0 se nenhuma. DecimalPlace = InStr (MyNumber, ".") 'Converter Paise e definir MyNumber para quantia em rúpias. If DecimalPlace> 0 Then Paise = GetTens (Left (Mid (MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim (Left (MyNumber, DecimalPlace - 1)) End If myCrores = MyNumber \ 10000000 myLakhs = ( MyNumber - myCrores * 10000000) \ 100000 MyNumber = MyNumber - myCrores * 10000000 - myLakhs * 100000 Count = 1 Do While myCrores "" Temp = GetHundreds (Right (myCrores, 3)) If Temp "" Then Crores = Temp e Local (Contagem ) & Crores If Len (myCrores)> 3 Then myCrores = Left (myCrores, Len (myCrores) - 3) Else myCrores = "" End If Count = Count + 1 Loop Count = 1 Do While myLakhs "" Temp = GetHundreds (Right (myLakhs, 3)) If Temp "" Then Lakhs = Temp & Local (Contar) & Lakhs If Len (myLakhs)> 3 Then myLakhs = Left (myLakhs, Len (myLakhs) - 3) Else myLakhs = "" End If Count = Count + 1 Loop Count = 1 Do While MyNumber "" Temp = GetHundreds (Right (MyNumber, 3)) If Temp "" Then Rupees = Temp & Place (Count) & Rupees If Len (MyNumber)> 3 Then MyNumber = Left (MyNumber, Len (MyNumber) - 3) Else MyNumber = "" End If Count = C ount + 1 Loop Selecione Case Crores Case "": Crores = "" Case "One": Crores = "One Crore" Case Else: Crores = Crores & "Crores" End Select Select Case Lakhs Case "": Lakhs = "" Case "One": Lakhs = "One Lakh" Caso Else: Lakhs = Lakhs & "Lakhs" End Select Case Rupees Case "": Rupees = "Zero" Case "One": Rupees = "One" Case Else: Rupees = Rupees End Select Select Case Paise Case "": Paise = "e Paise Zero Only" Case "One": Paise = "e Paise One Only" Case Else: Paise = "e Paise" & Paise & "Only" End Select 'criando o string de palavras para traduzir número em palavras NUM_TO_IND_RUPEE_WORD = IIf (incRupees, "Rupees", "") & Crores & _ Lakhs & Rupees & Paise 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" & MyNumber, 3) 'Converte a casa das centenas. If Mid (MyNumber, 1, 1) "0" Then Result = GetDigit (Mid (MyNumber, 1, 1)) & "Hundred" End If 'Converte as dezenas e as unidades. If Mid (MyNumber, 2, 1) "0" Then Result = Result & GetTens (Mid (MyNumber, 2)) Else Result = Result & GetDigit (Mid (MyNumber, 3)) End If GetHundreds = Resultado End Function 'Converte a número de 10 a 99 em texto. Função GetTens (TensText) Dim Result As String Result = "" 'Anula o valor temporário da função. If Val (Left (TensText, 1)) = 1 Then 'If value entre 10-19… Selecione Case Val (TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve "Caso 13: Resultado =" Treze "Caso 14: Resultado =" Quatorze "Caso 15: Resultado =" Quinze "Caso 16: Resultado =" Dezesseis "Caso 17: Resultado =" Dezessete "Caso 18: Resultado =" Dezoito "Caso 19: Resultado = "Dezenove" Case Else End Select Else 'Se o valor entre 20-99… Selecione Case Val (Left (TensText, 1)) Case 2: Result = "Twenty" Case 3: Result = "Thirty" Case 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 Finalizar Selecione o resultado = Resultado e GetDigit _ (Right (TensText, 1)) 'Recuperar um lugar. End If GetTens = Resultado End Function 'Converte um número de 1 a 9 em texto. Função GetDigit (Digit) Select Case Val (Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five "Caso 6: GetDigit =" Six "Case 7: GetDigit =" Seven "Case 8: GetDigit =" Eight "Case 9: GetDigit =" Nine "Case Else: GetDigit =" "End Select End Function
O código da função é longo, mas fácil de entender.
Para usar este código, insira um módulo no VBE e copie e cole-o. E a função está pronta para ser usada diretamente na folha. Ele converterá o número em palavras, especificamente no formato de rúpia indiana.
Então, sim pessoal, é assim que você pode usar uma função personalizada no Excel para converter números em palavras. Espero que isto seja útil. Se você tiver alguma dúvida sobre este artigo ou qualquer outra função, pergunte na seção de comentários abaixo.
Criar função VBA para retornar array| Para retornar uma matriz usando uma função personalizada no Excel, usamos uma sintaxe ligeiramente diferente para escrever a função personalizada. Esta função retorna uma matriz de valores em vez de apenas um valor.
Matrizes na fórmula do Excel| As matrizes são uma coleção de valores do mesmo tipo em todas as linguagens técnicas. No Excel, é o mesmo, mas tratado ligeiramente diferente das outras linguagens de programação …
Como criar uma função definida pelo usuário por meio do VBA| Aprenda a criar funções definidas pelo usuário no Excel.
Usando uma função definida pelo usuário (UDF) de outra pasta de trabalho usando VBA no Microsoft Excel| Use a função definida pelo usuário em outra pasta de trabalho do Excel.
Retorna valores de erro de funções definidas pelo usuário usando VBA no Microsoft Excel| Aprenda como você pode retornar valores de erro de uma função definida pelo usuário.
Artigos populares:
50 atalhos do Excel para aumentar sua produtividade | Torne sua tarefa mais rápida. Esses 50 atalhos farão você trabalhar ainda mais rápido no Excel.
Como usar a função VLOOKUP do Excel| Esta é uma das funções mais usadas e populares do Excel, que é usada para pesquisar valores em diferentes intervalos e planilhas.
Como usar o Excel Função CONT.SE| Conte valores com condições usando esta função incrível. Você não precisa filtrar seus dados para contar um valor específico. A função Countif é essencial para preparar seu painel.
Como usar a função SUMIF no Excel | Esta é outra função essencial do painel. Isso ajuda você a somar valores em condições específicas.
