Need Help Converting Rupees to Words in Excel 2000 – Any Simple Formulas or Programs?

Dear Members,

Can anybody provide me with some Excel formulas or a program to convert Rupees into words (in Excel 2000)? If in my Excel sheet I have the below-mentioned numbers, then I should be able to convert them as mentioned below in the same Excel sheet in the next column, by inserting some formula or by copying/pasting from some program.

For example:
- 10200 = Rupees Ten thousand two hundred only
- 110200 = Rupees One lakh ten thousand two hundred only
- 10200.50 = Rupees Ten thousand two hundred and paise fifty only

Arnold

Dear Arnold,

Please find the attached software for Numeric to Word converter. You have to add to Add-ins and make use of it.

Regards,
T. RAVI

Dear all,

1. Open the attached file in Notepad.
2. Select All and copy it to the clipboard by pressing CTRL+A and CTRL+C.
3. Open Microsoft Excel or the existing Excel file.
4. Press ALT+F11 to start the Visual Basic Editor.
5. On the Insert menu, click Module.
6. Paste the copied content by pressing CTRL+V.
7. Press ALT+Q to close and return to Excel.
8. You need to enable macros for the function to work properly.
9. If the macros are disabled, the function will not work.
10. Your formula "SpellNumber()" is ready.

Regards,
Shiv Sharma

Dear Mahendrafuria,

You tried to provide some valuable information to another person. However, the Excel file you provided is not accessible. Please provide detailed instructions on how to access or activate this file using MS Excel. This may involve navigating through MS Excel Options, Add-Ins, browsing the file path, and specifying the file name. Otherwise, it wastes the time of many individuals.

Thank you.

Best regards,
Pravin11

Mr. Arnold,
Please check the attached file for converting amounts in numbers to words.

Dear Arnold,

Please find the attached Excel file for converting amounts in numbers to amounts in words.

Regards,
Muneeb Akbar

Steps to Use the SpellNumber Function in Excel

1. Open the attached file in Notepad.
2. Select all and copy it to the clipboard by pressing CTRL+A and CTRL+C.
3. Start Microsoft Excel or open the existing Excel file.
4. Press ALT+F11 to launch the Visual Basic Editor.
5. Go to the Insert menu and click on Module.
6. Paste the copied content by pressing CTRL+V.
7. Press ALT+Q to close and return to Excel.
8. You need to enable macros to make the function work properly.
9. If the macros are disabled, the function will not work.
10. Your formula "SpellNumber()" is now ready.

Regards,
Shiv Sharma

Sure Arnold. Instead of a particular formula, you can use this script, which is a perfect program for converting numerical currency into words. Here we go...

Steps to Convert Numerical Currency into Words in Excel

1. Start Microsoft Excel.
2. Press ALT+F11 to start the Visual Basic Editor.
3. On the Insert menu, click Module.

Type the following code into the module sheet.

Option Explicit

'Main Function

Function INRSpell(ByVal MyNumber)

    Dim Rupees, Paise, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String

    Place(2) = "Thousand "
    Place(3) = "Lakh "
    Place(4) = "Crore "

    'String representation of the amount.
    MyNumber = Trim(Str(MyNumber))

    'Position of the decimal place 0 if none.
    DecimalPlace = InStr(MyNumber, ".")

    'Convert Paise and set MyNumber to the dollar amount.
    If DecimalPlace > 0 Then
        Pa ise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
        My Number = Trim(Left(MyNumber, DecimalPlace - 1))
    End If

    Count = 1

&nbsp;&nbsp;&nbsp;&nbsp;Do While MyNumber <> ""
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;If Count <> 1 Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Temp = GetHundreds(Right(MyNumber, 2))
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;If Len(MyNumber) > 2 Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MyNu mber = Left(MyNumber, Len(MyNumber) - 2)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MyNu mber = ""
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;End If
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;El se
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Temp = GetHundreds(Right(MyNumber, 3))
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;If Len(MyNumber) > 3 Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MyNu mber = Left(MyNumber, Len(MyNumber) - 3)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MyNu mber = ""
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;End If
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;En d If

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Co unt = Count + 1
&nbsp;&nbsp;&nbsp;&nbsp;Loop

&nbsp;&nbsp;&nbsp;&nbsp;Select Case Rupees
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se ""
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Rupees = " "
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se "One"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Rupees = "Re One "
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se Else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Rupees = "Rupees " & Rupees
&nbsp;&nbsp;&nbsp;&nbsp;End Select

&nbsp;&nbsp;&nbsp;&nbsp;Select Case Paise
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se ""
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Paise = " Zero Paise "
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se "One"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Paise = " and Paise One"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se Else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Paise = "Paise " & Paise
&nbsp;&nbsp;&nbsp;&nbsp;End Select

&nbsp;&nbsp;&nbsp;&nbsp;If Rupees <> " " Then Paise = " and " & Paise

&nbsp;&nbsp;&nbsp;&nbsp;INRSpell = " [ " & Rupees & Paise & " Only ] "

End Function

'Converts a number from 100-999 into text

Function GetHundreds(ByVal MyNumber)
&nbsp;&nbsp;&nbsp;&nbsp;Dim Result As String

&nbsp;&nbsp;&nbsp;&nbsp;If Val(MyNumber) = 0 Then Exit Function

&nbsp;&nbsp;&nbsp;&nbsp;MyNumber = Right("000" & MyNumber, 3)

&nbsp;&nbsp;&nbsp;&nbsp;'Convert the hundreds place.
&nbsp;&nbsp;&nbsp;&nbsp;If Mid(MyNumber, 1, 1) <> "0" Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Re sult = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
&nbsp;&nbsp;&nbsp;&nbsp;End If

&nbsp;&nbsp;&nbsp;&nbsp;'Convert the tens and ones place.
&nbsp;&nbsp;&nbsp;&nbsp;If Mid(MyNumber, 2, 1) <> "0" Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Re sult = Result & GetTens(Mid(MyNumber, 2))
&nbsp;&nbsp;&nbsp;&nbsp;Else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Re sult = Result & GetDigit(Mid(MyNumber, 3))
&nbsp;&nbsp;&nbsp;&nbsp;End If

&nbsp;&nbsp;&nbsp;&nbsp;GetHundreds = Result

End Function

'Converts a number from 10 to 99 into text.

Function GetTens(TensText)
&nbsp;&nbsp;&nbsp;&nbsp;Dim Result As String
&nbsp;&nbsp;&nbsp;&nbsp;Result = "" ' Null out the temporary function value.

&nbsp;&nbsp;&nbsp;&nbsp;If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Se lect Case Val(TensText)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 10: Result = "Ten"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 11: Result = "Eleven"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 12: Result = "Twelve"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 13: Result = "Thirteen"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 14: Result = "Fourteen"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 15: Result = "Fifteen"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 16: Result = "Sixteen"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 17: Result = "Seventeen"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 18: Result = "Eighteen"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 19: Result = "Nineteen"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se Else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;En d Select
&nbsp;&nbsp;&nbsp;&nbsp;Else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;' If value between 20-99...
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Se lect Case Val(Left(TensText, 1))
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 2: Result = "Twenty "
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 3: Result = "Thirty "
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 4: Result = "Forty "
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 5: Result = "Fifty "
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 6: Result = "Sixty "
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 7: Result = "Seventy "
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 8: Result = "Eighty "
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;Case 9: Result = "Ninety "
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se Else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;En d Select

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Re sult = Result & GetDigit(Right(TensText, 1)) ' Retrieve ones place.
&nbsp;&nbsp;&nbsp;&nbsp;End If

&nbsp;&nbsp;&nbsp;&nbsp;GetTens = Result

End Function

'Converts a number from 1 to 9 into text.

Function GetDigit(Digit)
&nbsp;&nbsp;&nbsp;&nbsp;Select Case Val(Digit)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se 1: GetDigit = "One"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se 2: GetDigit = "Two"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se 3: GetDigit = "Three"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se 4: GetDigit = "Four"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se 5: GetDigit = "Five"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se 6: GetDigit = "Six"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se 7: GetDigit = "Seven"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se 8: GetDigit = "Eight"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se 9: GetDigit = "Nine"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ca se Else: GetDigit = ""
&nbsp;&nbsp;&nbsp;&nbsp;End Select

End Function