Cómo Convertir Números En Palabras De Rupias Indias En Excel
La conversión de números en palabras de rupias indias es un proceso tedioso, especialmente si tiene que hacerlo manualmente. Afortunadamente, Excel ofrece una solución fácil para ello. En este artículo, aprenderá cómo convertir números en palabras de rupias indias en Excel.
Paso 1: Seleccione la celda donde desea que aparezca el resultado
El primer paso para convertir números en palabras de rupias indias en Excel es seleccionar la celda donde desea que aparezca el resultado. Asegúrese de que la celda esté vacía antes de continuar.
Paso 2: Escriba la fórmula
Una vez que haya seleccionado la celda, escriba la siguiente fórmula:
= SpellNumber (cell reference)
Reemplace "cell reference" con la referencia de la celda que contiene el número que desea convertir. Por ejemplo, si el número que desea convertir está en la celda A1, la fórmula sería:
= SpellNumber (A1)
Paso 3: Presione Enter
Después de escribir la fórmula, presione Enter para ver el resultado. La celda seleccionada ahora mostrará el número convertido en palabras de rupias indias.
Consejos para usar la función SpellNumber
La función SpellNumber es sensible a las letras mayúsculas y minúsculas. Asegúrese de escribir la fórmula correctamente y de respetar la capitalización.
La función SpellNumber solo funciona en números enteros. Si intenta convertir un número decimal, Excel mostrará un mensaje de error.
También tenga en cuenta que la función SpellNumber solo funciona en la versión en inglés de Excel. Si está utilizando una versión diferente de Excel, es posible que deba buscar una solución alternativa.
Solución alternativa para versiones no inglesas de Excel
Si está utilizando una versión no inglesa de Excel y la función SpellNumber no funciona, hay una solución alternativa que puede probar.
En lugar de usar la función SpellNumber, puede crear una macro que convierta números en palabras de rupias indias. La macro utilizará una función personalizada para realizar la conversión.
Para crear la macro, siga estos pasos:
Function SpellIndRupees(ByVal MyNumber) Dim Temp Dim Rupees, Paise Dim DecimalPlace, Count ReDim Place(9) As String Place(2) =" Thousand " Place(3) =" Lakh " Place(4) =" Crore " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, ".") If DecimalPlace > 0 Then Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If 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 = Count + 1 Loop Select Case Rupees Case "" Rupees ="No Rupees" Case "One" Rupees ="One Rupee" Case Else Rupees = Rupees & "Rupees" End Select Select Case Paise Case "" Paise =" and No Paise" Case "One" Paise =" and One Paise" Case Else Paise =" and " & Paise & "Paise" End Select SpellIndRupees = Rupees & Paise End Function Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) If Mid(MyNumber, 1, 1) <> "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Trim(Result) End Function Function GetTens(ByVal TensText) Dim Result As String Result ="" If Val(Left(TensText, 1)) = 1 Then Result = GetDigit(TensText) Else Select Case Val(Left(TensText, 1)) Case 2 Result ="Twenty " Case 3 Result ="Thirty " Case 4 Result ="Forty " Case 5 Result ="Fifty " Case 6 Result ="Sixty " Case 7 Result ="Seventy " Case 8 Result ="Eighty " Case 9 Result ="Ninety " Case Else End Select Result = Result & GetDigit(Right(TensText, 1)) End If GetTens = Result End Function Function GetDigit(ByVal 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 " Case 6 GetDigit ="Six " Case 7 GetDigit ="Seven " Case 8 GetDigit ="Eight " Case 9 GetDigit ="Nine " Case Else GetDigit ="" End Select End Function
= SpellIndRupees (cell reference)
Reemplace "cell reference" con la referencia de la celda que contiene el número que desea convertir. Por ejemplo, si el número que desea convertir está en la celda A1, la fórmula sería:
= SpellIndRupees (A1)
Presione Enter para ver el resultado. La celda seleccionada ahora mostrará el número convertido en palabras de rupias indias.
Conclusión
En resumen, la conversión de números en palabras de rupias indias en Excel puede ser fácil y rápida utilizando la función SpellNumber. Sin embargo, si está utilizando una versión no inglesa de Excel, es posible que deba utilizar una solución alternativa, como la macro que hemos descrito.
Esperamos que este artículo haya sido útil para usted y que haya aprendido cómo convertir números en palabras de rupias indias en Excel. ¡Buena suerte!
Posting Komentar untuk "Cómo Convertir Números En Palabras De Rupias Indias En Excel"