In this article I will show you two quick and free ways to convert currency numbers into English words in Excel 2019, 2016, 2013 and other versions. Continue reading
by Alexander Frolov, updated on
In this article I will show you two quick and free ways to convert currency numbers into English words in Excel 2019, 2016, 2013 and other versions. Continue reading
Comments page 15. Total comments: 530
how to delete the rows using check bos in excel.
Thank you! Copied and pasted the module, saved my file as an .xlm and bada-boom!
Dear Sir please send me the copy of these excel sheet please ,as soon as possible , please please
Dear . Alexander Frolov
Thanks for the formula, its works nicely
How can we split the amount in words into 2 lines in case 1 line is not enough to accommodate the amount in words? This is needed when printing on pre-printed cheque leaves.
Can anyone please help on the above?
Can i get modules for spellnumbers in words with cents. I have those modules with currency. But i'm using multi currencies so i don't want modules with currencies. Please help email me the modules which i request. Urgent. Please and Thanks.
Regards,
Puvanah
Please the code to convert amount to words is excellent, only i think there's something missing. after the code is pasted in Excel Module, and you key-in 420, the result that comes is: Four Hundred Twenty Dollars and No Cents. But am expecting Four Hundred and Twenty Dollars and No Cents. This means the an "and" is missing in-between Hundred and twenty. Thank you and looking forward to hear from you soon.
i use the module, but our central bank required us to put a "ONLY" word in the end of the Check. how can i do this?
Hi Sir,
I am very much need the program that convert the numbers in to English words in excel 2007.(Ex: 11- One One, 20- Two Zero, 21-Two Zero like that)
Please send me the solution for above querry,
it is very much urgent..
thank you very much..
i want number to ward in rupees and due to this formula it comes into dollars, than what's the step for it..............
please suggest me how to use spellnumber in excel ,i fallowed your steps as u say ,the results came" #name?,",like that,so plz show me right usage .....
Dear Stephen,
please send me excel sheet for converting same Pls
thanks
Dear Kindly let me know in dirham how to change spellnum in dirham
I have a lot of city name and code
Example
i type a code 001 At Cell (A1) - spell Number will show (american) at the another sheet
i type a code 002 At Cell (A1) Also - spell Number will show (african) at the another sheet and so on... I have a lot of city name to make it, please help me
Thanks
Dear Stephen,
please send me excel sheet for
converting same
Sir,
Please send details of excel sheet in permanent add for automatically spellnumber on MS excel- 2007.
Thanking you
Thank You So Much :)
Hi,
Can i have a copy of the formula in excel for the converted value, please ?
This one how do the amount currency change?
Please send me same excel sheet with formula,
Beautiful!!!!
Thank you for posting and making it so easy to implement. Really helped out in a crunch.
Sir, How can i convert dollar into Rupees and cent Into paisa in SpellNumber. I mean i want to change numeric value into words in pakistani currency. Kindly guide.
Your early response must be appreciated
Umer its very simple, after copying the above formula into module press CTRL+H and replace the word Dollar with Rupee and Cent with Paisa and then safe the module.
How can I change Dollars to US Dollars?
could you please send me the copy of these excel sheet please ,as soon as possible , please please
48,683.00
=SpellNumber(...)
Dear Friends,
Requesting you, kindly share the any worked excel sheet to me.
i need the how to change the number to words, becoz i want to create the new manual invoice sheet. any time i want to change the value in number and words also.
kindly do needful
Vinayak There is A Bug in the Module you have pasted request you to pls send me the Revised VBA if possible
Thanks...
Great thanks. This is awesome.
Pls I need the formula on how to convert figures to words in Nigeria currency. Thanks
PLZ GIVE ME SHORT FORMULA CONVERT NUMBER INTO WORD I CAN'T UNDERSTANDING THE FUNCTION OF THIS PROCEDURE
Dear sir/Madam
Kindly request to send excel file - to convert numbers to words in Excel
There IS An Error In Formula
Hi,
is it possible to get this formula for use in french.
Great job
Regards
Thank u very much it's works perfectly nice job.
I convert degree s for student therfore I want to appear only the word with out any other add.
ex: 0 appear zero
no thing appear no thing
41 appear forty one
Please send me a formula for the number to word.
i'm using Microsoft 2010.
hoping for your immediate reply.
Thank you,
Please send me a formula.
i'm using Microsoft 2010.
hoping for your immediate reply.
Thank you,
=CONCATENATE(IF(IF(QUOTIENT($A$3,10000000)0,VLOOKUP(QUOTIENT($A$3,10000000),Sheet1!$A$1:$B$99,2),"")"",CONCATENATE(IF(QUOTIENT($A$3,10000000)0,VLOOKUP(QUOTIENT($A$3,10000000),Sheet1!$A$1:$B$99,2),"")," Cror "),""),IF(IF(QUOTIENT(MOD($A$3,10000000),100000)0,VLOOKUP(QUOTIENT(MOD($A$3,10000000),100000),Sheet1!$A$1:$B$99,2),"")"",CONCATENATE(IF(QUOTIENT(MOD($A$3,10000000),100000)0,VLOOKUP(QUOTIENT(MOD($A$3,10000000),100000),Sheet1!$A$1:$B$99,2),"")," Lac "),""),IF(IF(QUOTIENT(MOD($A$3,100000),1000)0,VLOOKUP(QUOTIENT(MOD($A$3,100000),1000),Sheet1!$A$1:$B$99,2),"")"", CONCATENATE(IF(QUOTIENT(MOD($A$3,100000),1000)0,VLOOKUP(QUOTIENT(MOD($A$3,100000),1000),Sheet1!$A$1:$B$99,2),"")," Thousand "),""),IF(IF(QUOTIENT(MOD(MOD($A$3,100000),1000),100)0,VLOOKUP(QUOTIENT(MOD(MOD($A$3,100000),1000),100),Sheet1!$A$1:$B$99,2),"")"",CONCATENATE(IF(QUOTIENT(MOD(MOD($A$3,100000),1000),100)0,VLOOKUP(QUOTIENT(MOD(MOD($A$3,100000),1000),100),Sheet1!$A$1:$B$99,2),"")," Hundred "),""),IF(MOD(MOD(MOD($A$3,100000),1000),100)0,VLOOKUP(MOD(MOD(MOD($A$3,100000),1000),100),Sheet1!$A$1:$B$99,2)))
Please use following formulas and change cell references according to your sheet and dont forget to add a 1-99 numbers and their words in sheet1 like A1=1,B1=One and up to 99. This works and dont need micros also.
=CONCATENATE(IF(IF(QUOTIENT($A$3,10000000)0,VLOOKUP(QUOTIENT($A$3,10000000),Sheet1!$A$1:$B$99,2),"")"",CONCATENATE(IF(QUOTIENT($A$3,10000000)0,VLOOKUP(QUOTIENT($A$3,10000000),Sheet1!$A$1:$B$99,2),"")," Cror "),""),IF(IF(QUOTIENT(MOD($A$3,10000000),100000)0,VLOOKUP(QUOTIENT(MOD($A$3,10000000),100000),Sheet1!$A$1:$B$99,2),"")"",CONCATENATE(IF(QUOTIENT(MOD($A$3,10000000),100000)0,VLOOKUP(QUOTIENT(MOD($A$3,10000000),100000),Sheet1!$A$1:$B$99,2),"")," Lac "),""),IF(IF(QUOTIENT(MOD($A$3,100000),1000)0,VLOOKUP(QUOTIENT(MOD($A$3,100000),1000),Sheet1!$A$1:$B$99,2),"")"", CONCATENATE(IF(QUOTIENT(MOD($A$3,100000),1000)0,VLOOKUP(QUOTIENT(MOD($A$3,100000),1000),Sheet1!$A$1:$B$99,2),"")," Thousand "),""),IF(IF(QUOTIENT(MOD(MOD($A$3,100000),1000),100)0,VLOOKUP(QUOTIENT(MOD(MOD($A$3,100000),1000),100),Sheet1!$A$1:$B$99,2),"")"",CONCATENATE(IF(QUOTIENT(MOD(MOD($A$3,100000),1000),100)0,VLOOKUP(QUOTIENT(MOD(MOD($A$3,100000),1000),100),Sheet1!$A$1:$B$99,2),"")," Hundred "),""),IF(MOD(MOD(MOD($A$3,100000),1000),100)0,VLOOKUP(MOD(MOD(MOD($A$3,100000),1000),100),Sheet1!$A$1:$B$99,2)))
Hi Ronak,
Follow the steps below to split the numbers you have mentioned and any other number.
1. Highlight the column you want the numbers to be split.
2. On the formula tab select Data and then select Text to columns. Step 1 of 3: Of the two option in the dialogue box select Fixed width and click on Next.
3. Step 2 of 3:In the lower section of the dialogue box, Data preview, section place your cursor where you want the numbers to be split and click on Next.
4. Step 3 of 3: Select "General" in the column data format section and in the Destination option select the cell you want the data to be split.
When you click on Finish you will see the data split in the number of columns depending on the number of digits.
Word of caution - The original data will no longer be available so if you need to see the data in its original form then retain the original column and split the numbers from a copied column next to the original to for verifying purposes.
Regards.
IF ITS POSSIBLE THEN WHAT IS THE FORMULA????
I want to convert 11 into " ONE ONE ".
12 into " ONE TWO " AND SO ON.
It's possible or not????
It works with numbers big as 999.999.999.999.999,19
For example
137.895,19 results as
One Hundred Thirty Seven Thousand Eight Hundred Ninety Five Dollars and Nineteen Cents
Public Function NumToDol(N) As String
Words = Array("", " One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", " Ten", " Eleven", " Twelve", " Thirteen", " Fourteen", " Fifteen", " Sixteen", " Seventeen", " Eighteen", " Nineteen", "", "", " Twenty", " Thirty", " Forty", " Fifty", " Sixty", " Seventy", " Eighty", " Ninety", " Hundred", "", " Thousand", " Million", " Billion", " Trillion")
I = Int(N)
dd = Round(N - I, 2)
Dim D(1 To 2)
For j = 1 To 2
dd = dd * 10
D(j) = Int(dd)
dd = dd - Int(dd)
Next
If I = 0 Then L$ = "Zero"
If I > 0 Then
Dim G(5, 3) As Integer
For j = 1 To 5
For k = 3 To 1 Step -1
I = I / 10
G(j, k) = (I - Int(I)) * 10
I = Int(I)
Next
Next
For j = 5 To 1 Step -1
If G(j, 1) + G(j, 2) + G(j, 3) = 0 Then
Else
If G(j, 1) > 0 Then L$ = L$ & Words(G(j, 1)) & Words(30)
If G(j, 2) = 1 Then
L$ = L$ & Words(G(j, 3) + 10)
Else
L$ = L$ & Words(G(j, 2) + 20) & Words(G(j, 3))
End If
L$ = L$ & Words(j + 30)
End If
Next
End If
If D(1) = 1 Then
F$ = Words(D(2) + 10)
Else
If D(1) > 0 Then F$ = F$ & Words(D(1) + 18)
If D(2) > 0 Then F$ = F$ & Words(D(2))
If D(1) = 0 And D(2) = 0 Then F$ = "no"
End If
NumToDol = Trim(L$) & " Dollars" & " and " & F$ & " Cents"
End Function
Sorry,the previous message was published incomplete.
I retry to post it.
I wrote this.
It works with numbers 0 Then
Dim G(5, 3) As Integer
For j = 1 To 5
For k = 3 To 1 Step -1
I = I / 10
G(j, k) = (I - Int(I)) * 10
I = Int(I)
Next
Next
For j = 5 To 1 Step -1
If G(j, 1) + G(j, 2) + G(j, 3) = 0 Then
Else
If G(j, 1) > 0 Then L$ = L$ & Words(G(j, 1)) & Words(30)
If G(j, 2) = 1 Then
L$ = L$ & Words(G(j, 3) + 10)
Else
L$ = L$ & Words(G(j, 2) + 20) & Words(G(j, 3))
End If
L$ = L$ & Words(j + 30)
End If
Next
End If
If D(1) = 1 Then
F$ = Words(D(2) + 10)
Else
If D(1) > 0 Then F$ = F$ & Words(D(1) + 18)
If D(2) > 0 Then F$ = F$ & Words(D(2))
If D(1) = 0 And D(2) = 0 Then F$ = "no"
End If
NumToDol = Trim(L$) & " Dollars" & " and " & F$ & " Cents"
End Function
Please sir help me to spell number to words in Omani rial.
1 OMR=1000 Baiza
so I need to change like this
234.345
I mean i need to spell 3 digit after decimal as Omani Rial is prounced like this.
Thanks in advance.
Dear Sir
I have been working in Oman and I Need the VBA code for Omani currency. First I would like to give some information.
Currency name=Omani Rial
1 Omani Rial=1000 Baiza
So I need it in international system. I have been facing the problem like -1256475.256. how to spell after decimal sir? Please send me the vba code in my mail id-purushottamthapa568@gmail.com. I would you be very grateful .
Ah...that's so good for share your such a cool informative method. It benefits for me to apply to my job.
Although, I have been using Excel program for my office work, yet I think I still know it too little if compare to yours.
Thanks,
is ther eany way to dynamically change the currency depending on the currency format in the reference cell ..