How to Convert Number to Words in Excel in Rupees?

Before entering into this article, you should know what is the column in Excel? It is nothing but the vertical series of cells in an Excel sheet. Here, I will talk about how to convert the column number to Words in Excel in Rupees by using the formula and user-defined function in VBA. Let’s see them below!! Get an official version of ** MS Excel** from the following link: https://www.microsoft.com/en-in/microsoft-365/excel

Number to Words in Indian Rupees

This function is to convert any 10 digits or less amount or number into words or rupees.

Syntax of this function

=NUM_TO_IND_RUPEE_WORD(number)

Covert Number to Words in Indian Rupees

• Firstly, in the Excel Worksheet, you have to go to the Developer Tab.
• Then, you need to ** ** select the Visual Basic option under the Code section.

Select Visual Basics

• Now, you have to copy and paste the code given below.

 Function NUM_TO_IND_RUPEE_WORD(ByVal MyNumber, Optional 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) = " Thousand ": Place(3) = " Million "
 Place(4) = " Billion ": Place(5) = " Trillion "

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

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

 ' Convert Paise and set MyNumber to Rupees amount.
 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 & Place(Count) & 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 & Place(Count) & 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 = Count + 1
 Loop

 Select 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 "
  Case Else: Lakhs = Lakhs & " Lakhs "
 End Select

 Select Case Rupees
  Case "": Rupees = "Zero "
  Case "One": Rupees = "One "
  Case Else:
  Rupees = Rupees
 End Select

 Select Case Paise
  Case "": Paise = " and Paise Zero Only "
  Case "One": Paise = " and Paise One Only "
  Case Else: Paise = " and Paise " & Paise & " Only "
 End Select
'creating the string of words to translate number into words
 NUM_TO_IND_RUPEE_WORD = IIf(incRupees, "Rupees ", "") & Crores & _ Lakhs & Rupees & Paise
End Function

' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
 Dim Result As String
 If Val(MyNumber) = 0 Then Exit Function
 MyNumber = Right("000" & MyNumber, 3)
 ' Convert the hundreds place.
 If Mid(MyNumber, 1, 1) <> "0" Then
 Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
 End If

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

' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
 Dim Result As String
 Result = "" ' Null out the temporary function value.
 If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
 Select Case Val(TensText)
  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 ' If value between 20-99...
  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)) ' Retrieve ones place.
 End If
 GetTens = Result
End Function

' Converts a number from 1 to 9 into text.
Function 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"
  Case 6: GetDigit = "Six"
  Case 7: GetDigit = "Seven"
  Case 8: GetDigit = "Eight"
  Case 9: GetDigit = "Nine"
  Case Else: GetDigit = ""
 End Select
End Function

• After that, you need to save the code by selecting it and then close the window.

Save the Code

• Again, you have to go to the Excel Spreadsheet , and click on the Developer Tab.
• You need to choose the Macros option in the Code section.

Macro Option

• Now, you have to make sure that your macro name is selected and click the *Run * button.
• Finally, you will get *output * as given below in the Excel.

Number in Word

A Brief Synopsis

Here, we have explained the step-by-step procedure to convert the column number to Words in Excel in Rupees with different methods. Make use of this. Please share your worthwhile feedback in the below comment section. To learn more, check out our website *Geek Excel!! *

Read Also:

• Count the Number of Words in a Cell or a Range in Excel Office 365!!
• Excel Formulas Check the Cell Contains Some Words but Not Others!!
• Excel Formulas to Count Total Words in a Cell ~ Easy Guide!!
• Formulas for Counting the Number of Words in a Cell or Range in Excel!!
• Excel Formulas to Count Total Words in a Range ~ Useful Tips!!