Converts a number into currency format in words In Ms Excel

Professional Discussion > Trending > Blog > Converts a number into currency format in words In Ms Excel

In Ms excel there is no any short cut key in the menu bar where you can convert the number in to Text.

For that you need to create a macro then you will be able to convert your words in to text.

If you are not good in coding then wait here i have brought the code in very simple steps by applying this you can convert your number in text.

Working with financial data in Excel often involves more than just numbers—sometimes, you need to present amounts in words for documentation, invoices, cheques, or formal reports. Manually writing numbers like ₹1,25,000.75 as “One Lakh Twenty-Five Thousand and Seventy-Five Paise Only” can be tedious and error-prone, especially when dealing with large datasets.

To simplify this task, we’ve created a powerful Excel macro that automatically converts numeric values into text in Indian Rupee format. This means no more worrying about spelling mistakes, inconsistent formatting, or time-consuming manual entry. Just enter the number in a cell, use the formula, and get a perfectly formatted result like:
=ConvertToRupees(A2) → “Rupees One Thousand Two Hundred Fifty and Seventy Five Paise Only”`

This macro is especially useful for accountants, finance professionals, small business owners, and anyone who generates payment documents or reports that require amounts in words. It supports both whole numbers and paise values, formatted in the traditional Indian numbering system—lakhs and crores instead of millions and billions

For example 1250.75 → Rupees One Thousand Two Hundred Fifty and Seventy Five Paise Only.

Step 1- Press ALT + F11 in Excel to open the VBA Editor.

Step 2- Insert a new Module (Insert > Module).

Step 3- Paste the above code.

Step 4- Close the editor.

Step 5- In any cell, use the formula: =ConvertToRupees(A1)

Copy and past given below code (Red Colour) =>

Function ConvertToRupees(ByVal MyNumber)
    Dim Rupees, Paise, Temp
    Dim DecimalPlace, Count
    Dim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Lakh "
    Place(4) = " Crore "

    ReDim Numbers(0 To 99) As String
    Dim i As Integer
    Numbers(0) = ""
    Numbers(1) = "One"
    Numbers(2) = "Two"
    Numbers(3) = "Three"
    Numbers(4) = "Four"
    Numbers(5) = "Five"
    Numbers(6) = "Six"
    Numbers(7) = "Seven"
    Numbers(8) = "Eight"
    Numbers(9) = "Nine"
    Numbers(10) = "Ten"
    Numbers(11) = "Eleven"
    Numbers(12) = "Twelve"
    Numbers(13) = "Thirteen"
    Numbers(14) = "Fourteen"
    Numbers(15) = "Fifteen"
    Numbers(16) = "Sixteen"
    Numbers(17) = "Seventeen"
    Numbers(18) = "Eighteen"
    Numbers(19) = "Nineteen"
    Numbers(20) = "Twenty"
    For i = 21 To 99
        Select Case i \ 10
            Case 2: Temp = "Twenty"
            Case 3: Temp = "Thirty"
            Case 4: Temp = "Forty"
            Case 5: Temp = "Fifty"
            Case 6: Temp = "Sixty"
            Case 7: Temp = "Seventy"
            Case 8: Temp = "Eighty"
            Case 9: Temp = "Ninety"
        End Select
        If i Mod 10 > 0 Then
            Temp = Temp & " " & Numbers(i Mod 10)
        End If
        Numbers(i) = Temp
    Next i

    MyNumber = Trim(Str(MyNumber))
    DecimalPlace = InStr(MyNumber, ".")
    
    If DecimalPlace > 0 Then
        Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2), Numbers)
        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If

    Count = 1
    Do While MyNumber <> ""
        Temp = GetHundreds(Right(MyNumber, 2), Numbers)
        If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
        If Len(MyNumber) > 2 Then
            MyNumber = Left(MyNumber, Len(MyNumber) - 2)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop

    ConvertToRupees = "Rupees " & Rupees
    If Paise <> "" Then
        ConvertToRupees = ConvertToRupees & " and " & Paise & " Paise"
    End If
    ConvertToRupees = ConvertToRupees & " Only"
End Function

Private Function GetHundreds(ByVal MyTens, Numbers)
    Dim Result As String
    If Val(MyTens) = 0 Then Exit Function
    If Len(MyTens) = 1 Then MyTens = "0" & MyTens

    If Val(Left(MyTens, 1)) > 0 Then
        Result = Numbers(Val(Left(MyTens, 1))) & " Hundred "
    End If

    If Val(Right(MyTens, 2)) > 0 Then
        Result = Result & Numbers(Val(Right(MyTens, 2)))
    End If

    GetHundreds = Result
End Function

Private Function GetTens(TensText, Numbers)
    GetTens = Numbers(Val(TensText))
End Function

You can also refer the below screenshot for easy reference. Press ALT + F11 in Excel to open the VBA Editor. or View Macro

Paste the above code.

Paste the above code.

Blog
Tags , , ,

About the Author

admin@gmail.com

31 thoughts on “Converts a number into currency format in words In Ms Excel”

  7. Đến với J88, bạn sẽ được trải nghiệm dịch vụ cá cược chuyên nghiệp cùng hàng ngàn sự kiện khuyến mãi độc quyền.

    Reply

  9. Đến với J88, bạn sẽ được trải nghiệm dịch vụ cá cược chuyên nghiệp cùng hàng ngàn sự kiện khuyến mãi độc quyền.

    Reply

  12. Spotted pgviplogin and thought I’d give it a whirl. The VIP login bit makes you feel a bit special, even if it’s just a gimmick. Games seem alright and the site’s easy enough to get around. Give pgviplogin a bash.

    Reply

  15. Kho game khổng lồ hấp dẫn thành viên tham gia tại slot365 login chính thức không thể không kể đến dòng nổ hũ với phần thưởng lên tới hàng tỷ đồng. Tại đây có hàng trăm sản phẩm khác nhau với giao diện, cách chơi khác nhau, đưa tới trải nghiệm thú vị, không bao giờ nhàm chán cho thành viên tham gia. TONY12-15

    Reply

  17. 884755 20105Im so happy to read this. This is the type of manual that needs to be given and not the accidental misinformation thats at the other blogs. Appreciate your sharing this greatest doc. 181666

    Reply

  18. 389246 246473An attention-grabbing dialogue is value comment. I believe which you need to write a lot more on this matter, it wont be a taboo topic even so typically individuals are not sufficient to speak on such topics. To the next. Cheers 685770

    Reply

Leave a Reply

Your email address will not be published. Required fields are marked *

You may also like these