How to convert Number to Words of Rupees in Excel

Share This:

Share Tweet Pin

Microsoft excel is being widely used software today as it provides a variety of tools for creating a best spreadsheet. In Excel you can do a lots of things according to your convenience which can make you smarter in doing your daily work in spreadsheet.

In this post regarding microsoft excel help, you will learn that how a figure or numeric value of Indian Rupees can be converted to its equivalent word of Rupees.

Follow the steps to Convert Number to Words of Rupees in Excel.

•  Step 1 : Open MS Excel

•  Step 2 : Press Alt+F11

•  Step 3 : Paste this code

Function SpellNumber(ByVal MyNumber)
Dim Temp
   Dim Rupees, Paise
   Dim DecimalPlace, Count
 
   ReDim Place(9) As String
   Place(2) = " Thousand "
   Place(3) = " lakh "
   Place(4) = " Crore "
 
   ' Convert MyNumber to a string, trimming extra spaces.
   MyNumber = Trim(Str(MyNumber))
 
   ' Find decimal place.
   DecimalPlace = InStr(MyNumber, ".")
 
   ' If we find decimal place...
   If DecimalPlace > 0 Then
   ' Convert Paise
   Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
   ' Hi! Note the above line Mid function it gives right portion
   ' after the decimal point
   'if only . and no numbers such as 789. accures, mid returns nothing
   ' to avoid error we added 00
   ' Left function gives only left portion of the string with specified places here 2
 
   Paise = ConvertTens(Temp)
 ' Strip off paise from remainder to convert.
   MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
   End If
 
   Count = 1
   If MyNumber <> "" Then
 
   ' Convert last 3 digits of MyNumber to Indian Rupees.
   Temp = ConvertHundreds(Right(MyNumber, 3))
 
   If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
 
   If Len(MyNumber) > 3 Then
   ' Remove last 3 converted digits from MyNumber.
   MyNumber = Left(MyNumber, Len(MyNumber) - 3)
   Else
     MyNumber = ""
   End If
 
   End If
 
   ' convert last two digits to of mynumber
   Count = 2
 
   Do While MyNumber <> ""
   Temp = ConvertTens(Right("0" & MyNumber, 2))
 
   If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
   If Len(MyNumber) > 2 Then
   ' Remove last 2 converted digits from MyNumber.
   MyNumber = Left(MyNumber, Len(MyNumber) - 2)
 
   Else
   MyNumber = ""
   End If
   Count = Count + 1
 
   Loop
 
  ' Clean up dollars.
   Select Case Rupees
   Case ""
   Rupees = "-"
   Case "One"
   Rupees = "One Rupee"
   Case Else
    Rupees = Rupees & " Rupees"
   End Select
 
   ' Clean up cents.
         Select Case Paise
            Case ""
               Paise = ""
            Case "One"
               Paise = " And One Paise"
            Case Else
               Paise = " And " & Paise & " Paise"
         End Select
 
         SpellNumber = Rupees & Paise
End Function
 
 
Private Function ConvertDigit(ByVal MyDigit)
        Select Case Val(MyDigit)
            Case 1: ConvertDigit = "One"
            Case 2: ConvertDigit = "Two"
            Case 3: ConvertDigit = "Three"
            Case 4: ConvertDigit = "Four"
            Case 5: ConvertDigit = "Five"
            Case 6: ConvertDigit = "Six"
            Case 7: ConvertDigit = "Seven"
            Case 8: ConvertDigit = "Eight"
            Case 9: ConvertDigit = "Nine"
            Case Else: ConvertDigit = ""
         End Select
 
End Function
 
Private Function ConvertHundreds(ByVal MyNumber)
    Dim Result As String
 
         ' Exit if there is nothing to convert.
         If Val(MyNumber) = 0 Then Exit Function
 
         ' Append leading zeros to number.
         MyNumber = Right("000" & MyNumber, 3)
 
         ' Do we have a hundreds place digit to convert?
         If Left(MyNumber, 1) <> "0" Then
            Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "
         End If
 
         ' Do we have a tens place digit to convert?
         If Mid(MyNumber, 2, 1) <> "0" Then
            Result = Result & ConvertTens(Mid(MyNumber, 2))
         Else
            ' If not, then convert the ones place digit.
            Result = Result & ConvertDigit(Mid(MyNumber, 3))
         End If
 
         ConvertHundreds = Trim(Result)
End Function
 
 
Private Function ConvertTens(ByVal MyTens)
          Dim Result As String
 
         ' Is value between 10 and 19?
         If Val(Left(MyTens, 1)) = 1 Then
            Select Case Val(MyTens)
               Case 10: Result = "Ten"
               Case 11: Result = "Eleven"
               Case 12: Result = "Twelve"
               Case 13: Result = "Thirteen"
               Case 14: Result = "Fourteen"
               Case 15: Result = "Fifteen"
               Case 16: Result = "Sixteen"
               Case 17: Result = "Seventeen"
               Case 18: Result = "Eighteen"
               Case 19: Result = "Nineteen"
               Case Else
            End Select
         Else
            ' .. otherwise it's between 20 and 99.
            Select Case Val(Left(MyTens, 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
 
            ' Convert ones place digit.
            Result = Result & ConvertDigit(Right(MyTens, 1))
         End If
 
         ConvertTens = Result
End Function

• Step 4 : Save & Close. You have done it

• Now, convert like this by calling the function spellNumber.

If you found this useful, then share this to your friends as Sharing is Caring 😊