How to Convert Number to Words in Excel in Rupees?
Tags: toconvertnumbertowor, vbamacros
Published: 2021-09-05 02:27:45

---
title: How to Convert Number to Words in Excel in Rupees?
published: true
date: 2021-09-04 14:48:18 UTC
tags: ToConvertNumberToWor,VBAMacros
canonical_url: https://geekexcel.com/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](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.

![](https://geekexcel.com/wp-content/uploads/2021/09/Select-Visual-Basic-7-1024x180.png)<figcaption>Select Visual Basics</figcaption>

- 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**.

![](https://geekexcel.com/wp-content/uploads/2021/09/Save-the-Code1-1024x927.png)<figcaption>Save the Code</figcaption>

- 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.

![](https://geekexcel.com/wp-content/uploads/2021/09/Choose-Macro-option-7-1024x184.png)<figcaption>Macro Option</figcaption>

- 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.

![](https://geekexcel.com/wp-content/uploads/2021/09/Number-in-word-1024x390.png)<figcaption>Number in Word</figcaption>

## 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](https://geekexcel.com/)!! **

**Read Also:**

- **[Count the Number of Words in a Cell or a Range in Excel Office 365!!](https://geekexcel.com/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!!](https://geekexcel.com/excel-formulas-check-the-cell-contains-some-words-but-not-others/)**
- **[Excel Formulas to Count Total Words in a Cell ~ Easy Guide!!](https://geekexcel.com/excel-formulas-to-count-total-words-in-a-cell/)**
- **[Formulas for Counting the Number of Words in a Cell or Range in Excel!!](https://geekexcel.com/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!!](https://geekexcel.com/excel-formulas-to-count-total-words-in-a-range/)**