Hi all,
I need your help on a topic related to Ms Excel. Is there any formula/function available that could transfer the numbers into text? For example, if we have a figure of the TOTAL Amount in any bill as Rs 49,750.00, then it should be automatically converted into words like Forty-Nine Thousand Seven Hundred and Fifty Only.
Kindly help me... it's urgent.
From India, Jamshedpur
Acknowledge(0)
Amend(0)
I need your help on a topic related to Ms Excel. Is there any formula/function available that could transfer the numbers into text? For example, if we have a figure of the TOTAL Amount in any bill as Rs 49,750.00, then it should be automatically converted into words like Forty-Nine Thousand Seven Hundred and Fifty Only.
Kindly help me... it's urgent.
From India, Jamshedpur
Acknowledge(0)Amend(0)
Hi,
You need to write a macro for that. Check this link for the exact steps - [How To Convert Number Into Words In MS Excel ? (Example 100 = Hundred Dollars) | Microsoft Excel](http://lostinexcel.blogspot.in/2012/01/how-to-convert-number-into-words-in-ms.html#.UtjPXvv3Sn4). Hope this helps.
From India, Secunderabad
Acknowledge(0)Amend(0)
11You need to write a macro for that. Check this link for the exact steps - [How To Convert Number Into Words In MS Excel ? (Example 100 = Hundred Dollars) | Microsoft Excel](http://lostinexcel.blogspot.in/2012/01/how-to-convert-number-into-words-in-ms.html#.UtjPXvv3Sn4). Hope this helps.
From India, Secunderabad
Acknowledge(0)Amend(0)
Which version of excel are you using? Typically you should be able to re-use the macro by way of copy and paste from one workbook to another.
From India, Secunderabad
Acknowledge(0)Amend(0)
From India, Secunderabad
Acknowledge(0)Amend(0)
Hi Rajiv, you can download "asap utilities". It will also help you for other function. after installed you can put the formula. {=asapspellnumber(D9)} Regards, Hardik
From India, Ahmadabad
Acknowledge(0)Amend(0)
From India, Ahmadabad
Acknowledge(0)Amend(0)
Hi SRK, I am using Office 2007. but in that function there is one problem i got. it is directly converted in Million, Trillion after 10 Thousands. plz help regards Rajiv Sri
From India, Jamshedpur
Acknowledge(0)Amend(0)
From India, Jamshedpur
Acknowledge(0)Amend(0)
Try this code instead of the previous one; it is working fine - Foreign Post Office Mumbai: Excel Function to Convert Rupees in Figure to Rupees in Word
From India, Secunderabad
Acknowledge(0)Amend(0)
From India, Secunderabad
Acknowledge(0)Amend(0)
Function Wtf(amt As Variant) As Variant
Dim FIGURE As Variant
Dim LENFIG As Integer
Dim i As Integer
Dim WORDs(19) As String
Dim tens(9) As String
WORDs(1) = "One"
WORDs(2) = "Two"
WORDs(3) = "Three"
WORDs(4) = "Four"
WORDs(5) = "Five"
WORDs(6) = "Six"
WORDs(7) = "Seven"
WORDs(8) = "Eight"
WORDs(9) = "Nine"
WORDs(10) = "Ten"
WORDs(11) = "Eleven"
WORDs(12) = "Twelve"
WORDs(13) = "Thirteen"
WORDs(14) = "Fourteen"
WORDs(15) = "Fifteen"
WORDs(16) = "Sixteen"
WORDs(17) = "Seventeen"
WORDs(18) = "Eighteen"
WORDs(19) = "Nineteen"
tens(2) = "Twenty"
tens(3) = "Thirty"
tens(4) = "Forty"
tens(5) = "Fifty"
tens(6) = "Sixty"
tens(7) = "Seventy"
tens(8) = "Eighty"
tens(9) = "Ninety"
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
FIGLEN = Len(FIGURE)
If FIGLEN < 12 Then
FIGURE = Space(12 - FIGLEN) & FIGURE
End If
If Val(Left(FIGURE, 9)) > 1 Then
Wtf = "Rupees "
ElseIf Val(Left(FIGURE, 9)) = 1 Then
Wtf = "Rupee "
End If
For i = 1 To 3
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
Wtf = Wtf & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
Wtf = Wtf & tens(Val(Left(FIGURE, 1)))
Wtf = Wtf & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
If i = 1 And Val(Left(FIGURE, 2)) > 0 Then
Wtf = Wtf & " Crore "
ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then
Wtf = Wtf & " Lakh "
ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then
Wtf = Wtf & " Thousand "
End If
FIGURE = Mid(FIGURE, 3)
Next i
If Val(Left(FIGURE, 1)) > 0 Then
Wtf = Wtf & WORDs(Val(Left(FIGURE, 1))) + " Hundred "
End If
FIGURE = Mid(FIGURE, 2)
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
Wtf = Wtf & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
Wtf = Wtf & tens(Val(Left(FIGURE, 1)))
Wtf = Wtf & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
FIGURE = Mid(FIGURE, 4)
If Val(FIGURE) > 0 Then
Wtf = Wtf & " Paise "
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
Wtf = Wtf & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
Wtf = Wtf & tens(Val(Left(FIGURE, 1)))
Wtf = Wtf & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
End If
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
If Val(FIGURE) > 0 Then
Wtf = Wtf & " Only "
End If
End Function
From India, Bangalore
Acknowledge(0)Amend(0)
Dim FIGURE As Variant
Dim LENFIG As Integer
Dim i As Integer
Dim WORDs(19) As String
Dim tens(9) As String
WORDs(1) = "One"
WORDs(2) = "Two"
WORDs(3) = "Three"
WORDs(4) = "Four"
WORDs(5) = "Five"
WORDs(6) = "Six"
WORDs(7) = "Seven"
WORDs(8) = "Eight"
WORDs(9) = "Nine"
WORDs(10) = "Ten"
WORDs(11) = "Eleven"
WORDs(12) = "Twelve"
WORDs(13) = "Thirteen"
WORDs(14) = "Fourteen"
WORDs(15) = "Fifteen"
WORDs(16) = "Sixteen"
WORDs(17) = "Seventeen"
WORDs(18) = "Eighteen"
WORDs(19) = "Nineteen"
tens(2) = "Twenty"
tens(3) = "Thirty"
tens(4) = "Forty"
tens(5) = "Fifty"
tens(6) = "Sixty"
tens(7) = "Seventy"
tens(8) = "Eighty"
tens(9) = "Ninety"
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
FIGLEN = Len(FIGURE)
If FIGLEN < 12 Then
FIGURE = Space(12 - FIGLEN) & FIGURE
End If
If Val(Left(FIGURE, 9)) > 1 Then
Wtf = "Rupees "
ElseIf Val(Left(FIGURE, 9)) = 1 Then
Wtf = "Rupee "
End If
For i = 1 To 3
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
Wtf = Wtf & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
Wtf = Wtf & tens(Val(Left(FIGURE, 1)))
Wtf = Wtf & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
If i = 1 And Val(Left(FIGURE, 2)) > 0 Then
Wtf = Wtf & " Crore "
ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then
Wtf = Wtf & " Lakh "
ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then
Wtf = Wtf & " Thousand "
End If
FIGURE = Mid(FIGURE, 3)
Next i
If Val(Left(FIGURE, 1)) > 0 Then
Wtf = Wtf & WORDs(Val(Left(FIGURE, 1))) + " Hundred "
End If
FIGURE = Mid(FIGURE, 2)
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
Wtf = Wtf & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
Wtf = Wtf & tens(Val(Left(FIGURE, 1)))
Wtf = Wtf & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
FIGURE = Mid(FIGURE, 4)
If Val(FIGURE) > 0 Then
Wtf = Wtf & " Paise "
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
Wtf = Wtf & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
Wtf = Wtf & tens(Val(Left(FIGURE, 1)))
Wtf = Wtf & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
End If
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
If Val(FIGURE) > 0 Then
Wtf = Wtf & " Only "
End If
End Function
From India, Bangalore
Acknowledge(0)Amend(0)
Thanks to all for your suggestions.
What should I do if:
(1) I want to use the same macro in any system with the same file?
(2) I want to use the same macro in any MS Excel file on the same system for a long time?
From India, Jamshedpur
Acknowledge(0)Amend(0)
What should I do if:
(1) I want to use the same macro in any system with the same file?
(2) I want to use the same macro in any MS Excel file on the same system for a long time?
From India, Jamshedpur
Acknowledge(0)Amend(0)
Rajiv, check out these two pages from the Microsoft site - [Copy your macros to a Personal Macro Workbook - Excel - Office.com](http://office.microsoft.com/en-in/excel-help/copy-your-macros-to-a-personal-macro-workbook-HA102174076.aspx) and [Copy a macro module to another workbook - Excel - Office.com](http://office.microsoft.com/en-in/excel-help/copy-a-macro-module-to-another-workbook-HP010342313.aspx?CTT=5&amp;origin=HA102174076) .
From India, Secunderabad
Acknowledge(0)Amend(0)
From India, Secunderabad
Acknowledge(0)Amend(0)
Hi, Hello all.
The amount in words can be calculated in Excel itself just by incorporating the attached Excel sheet into your workbook. It will work for one invoice value or amount, and if you want it for more than one amount, then you can copy and extend the formula for more than one cell value.
I created this for one of my friends who generates simple quotations and invoices using Excel, and it works fine for him.
From India, Chennai
Acknowledge(0)Amend(0)
The amount in words can be calculated in Excel itself just by incorporating the attached Excel sheet into your workbook. It will work for one invoice value or amount, and if you want it for more than one amount, then you can copy and extend the formula for more than one cell value.
I created this for one of my friends who generates simple quotations and invoices using Excel, and it works fine for him.
From India, Chennai
Acknowledge(0)Amend(0)
Dear All, Please find enclosed macro file for converting Numeric figures into Indian rupee. courtesy:CMA.ANKUR
From India, Delhi
Acknowledge(0)Amend(0)
From India, Delhi
Acknowledge(0)Amend(0)
Hi, you can install wnum application in Excel then you can easily convert the Numeric in to words.
From India, Visakhapatnam
Acknowledge(0)Amend(0)
From India, Visakhapatnam
Acknowledge(0)Amend(0)
Hi, you can install wnum application in Excel then you can easily convert the Numeric in to words.
From India, Visakhapatnam
Acknowledge(0)Amend(0)
From India, Visakhapatnam
Acknowledge(0)Amend(0)
Dear SRIHARSHA,
I need a payroll calculation sheet. Can you help me or just provide an overview of the terms and conditions of payroll percentages, such as basic salary, HRA, conveyance, and other allowances? On what basis are we excluding HRA?
Regards,
SRINIVASAN
From India, Chennai
Acknowledge(0)Amend(0)
I need a payroll calculation sheet. Can you help me or just provide an overview of the terms and conditions of payroll percentages, such as basic salary, HRA, conveyance, and other allowances? On what basis are we excluding HRA?
Regards,
SRINIVASAN
From India, Chennai
Acknowledge(0)Amend(0)Join Our Community and get connected with the right people who can help. Our AI-powered platform provides real-time fact-checking, peer-reviewed insights, and a vast historical knowledge base to support your search.
Excel Functions Dictionary.xls