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 on: Two best ways to convert numbers to words in Excel
by Alexander Frolov, updated on
Comments page 17. Total comments: 530
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 ..
How to Use TRIM formula Please Help Me
How I can change numeric to word in rupees please solve my problem thanks
When I wrote =spellnumber(A2)
It shows name error.
how to convert 1,342.50 in to words as per indian currency
In Indian currency format we write Rupees One crore ninety nine lac ninety nine thousand nine hundred ninety nine and ninety nine paisas. In your formula we need little change. Million, billion and trillion should be replaced with Lacs and Crores in proper places. Here is some tips:
1 million = 10 lacs
10 million = 1 crore.
We can write lacs limited up to ninety nine lac but crore is ulimited up to some extent. E.g. 100 crores, 10000 crores etc.
Can you please take some burden to upgrade your version for indian format. Thanks in advance.
Good evening Sir,
How to Covert date of birth into worlds
Exm: 02/02/1966
Second february ninteen sixty six
is any formula pl
Hi, I have made a slight change to the code and it allows me to spellnumber as eg.Two hundreds and Cents Thirteen Only. However, i am facing a problem when the amount turns out with 3 decimal places e.g. $200.137. I need the spell number to be $200.14 and not spelled as $200.13. Could you help? Thank you very much.
Very Very help full this method thank you very much
Hello. I want to calculate numeric to inward and linking in The Excel2010. How to possible please inform me by sending mail.
I want to convert number to word in nepali format .But I don't know how to create formula in excel sheet.
This is to inform you that I m using Ms office 7 . The issue is that when i use any amount in excel , it gets converted into words only in the file which i have saved it.
When I open a new fle, it doesn't automatically accept it. I have to use the formula again in the new sheet to convert it. So, is there any setting in Ms office 7 that I can convert numbers into alphabetical while writing amount in excel in each and every file.
For Eg:
10000 - Ten Thousand.
Plz help.
(100000=one Million) need this formula (No need currency)
Need this sample spellnumber, please help anybody me, for share spell number in my email, exp: 125000=Twelve milion five thousand this formula
"Reverse conversion - English words into numbers
Frankly, I can't imagine why you may need it. Just in case... :)"
Thank you so much - this was exactly what we were looking for!!! Kudos!
Hi!
I still am not able to convert figures in words. Can you please send me the formula in excel sheet without any currency.
Thanks
Hi Sir,
Please send me formula for write only for the words without dollars ans cents
Greetings Sir.
I want code for text of spell number in Indian Rupees and Paisas with shoing Rupees at start of text figure. for example
1000.50 is to text as
Rupees One Thousand and fifty paisas only.
Thanks for your urgent reply
Alexandre,
Thank you for your help! This article is excellent!
I have only one question. The formula is working perfect when I have the spreadsheet saved in my own hard disk, but when I save the file on my share drive the formula doesn't work. Is there any way to fix it?
all formulas showing error
these formulas are not working
Thank you so much! Works like a charm!!!!!! (=spellnumber) - Just what the doctor ordered!
I want amount 500.260 as " Five hundered Riyal and 260 Baisa Only" How can i get do it decimals till 3 digits and also in numeric.
I would like complete this using the formula only (no macro) and also have the text read the cents as "55/100 DOLLARS". So, for example, $7,547.55 = "SEVEN THOUSAND FIVE HUNDRED FORTY-SEVEN AND 55/100 DOLLARS" Can anyone help with that? I'd prefer not to use a macro, if possible.
sir i got that formula and its works at once.but when i close excel and reopen then #name error comes and format formula has been out
Hi,
I have an Problem. the Number convert into word the following example. I want (two lakh four hundred seventy four dollars and 24 Cents). Please help me.
2,00,474.25
Two Hundred Thousand Four Hundred Seventy Four Dollars and Twenty Five Cents
hi how will i convert 100.47 into "one hundred & 47/100 Only"
i tried suggested response but all of them are not working did i missed something. can i have the detailed steps
thank you
hi! just wondering if this is already solved can i have the complete formula for this? thannk you so much
sir i got that formula and its works at once.but when i close excel and reopen then #name error comes and format formula has been out
In Indian Format you can convert up to neel rupee
&
In million format you can convert up to trillion dollar
You can change your currency by find and replace rupee-paise or dollar-cent to any other currency
Or
You can also use it without any currency just find and replace rupee-paise or dollar-cent with blank (spacebar)
in Million Format (Excel Formula)
=TRIM(IF(C5>=10^14," "&CHOOSE(FLOOR(MOD(C5,10^15)/10^14,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),"")&IF(MOD(C5,10^15)>=10^14," Hundred"," ")&" "&IF(MOD(C5,10^14)>=2*10^13," "&CHOOSE(FLOOR(MOD(C5,10^14)/10^13,1)+1,"","","Twenty","Thirty","Forty","Fifty","Sixty", "Seventy","Eighty","Ninety")&IF(MOD(MOD(C5,10^14),10^13)>=10^12," "&CHOOSE(FLOOR(MOD(MOD(C5,10^14),10^13)/10^12,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),""),IF(MOD(C5,10^14)>=10^12," "&CHOOSE(FLOOR(MOD(C5,10^14)/10^12,1)+1,"","One","Two","Three","Four","Five","Six","Seven", "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen", "Eighteen","Nineteen"),""))&IF(MOD(C5,10^15)>=10^12," Trillion"," ")&" "&IF(C5>=10^11," "&CHOOSE(FLOOR(MOD(C5,10^12)/10^11,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),"")&IF(MOD(C5,10^12)>=10^11," Hundred"," ")&" "&IF(MOD(C5,10^11)>=2*10^10," "&CHOOSE(FLOOR(MOD(C5,10^11)/10^10,1)+1,"","","Twenty","Thirty","Forty","Fifty","Sixty", "Seventy","Eighty","Ninety")&IF(MOD(MOD(C5,10^11),10^10)>=10^9," "&CHOOSE(FLOOR(MOD(MOD(C5,10^11),10^10)/10^9,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),""),IF(MOD(C5,10^11)>=10^9," "&CHOOSE(FLOOR(MOD(C5,10^11)/10^9,1)+1,"","One","Two","Three","Four","Five","Six","Seven", "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen", "Eighteen","Nineteen"),""))&IF(MOD(C5,10^12)>=10^9," Billion"," ")&" "&IF(C5>=10^8," "&CHOOSE(FLOOR(MOD(C5,10^9)/10^8,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),"")&IF(MOD(C5,10^9)>=10^8," Hundred"," ")&" "&IF(MOD(C5,10^8)>=2*10^7," "&CHOOSE(FLOOR(MOD(C5,10^8)/10^7,1)+1,"","","Twenty","Thirty","Forty","Fifty","Sixty", "Seventy","Eighty","Ninety")&IF(MOD(MOD(C5,10^8),10^7)>=10^6," "&CHOOSE(FLOOR(MOD(MOD(C5,10^8),10^7)/10^6,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),""),IF(MOD(C5,10^8)>=10^6," "&CHOOSE(FLOOR(MOD(C5,10^8)/10^6,1)+1,"","One","Two","Three","Four","Five","Six","Seven", "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen", "Eighteen","Nineteen"),""))&IF(MOD(C5,10^9)>=10^6," Million"," ")&" "&IF(C5>=10^5," "&CHOOSE(FLOOR(MOD(C5,10^6)/10^5,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),"")&IF(MOD(C5,10^6)>=10^5," Hundred"," ")&" "&IF(MOD(C5,10^5)>=20000," "&CHOOSE(FLOOR(MOD(C5,10^5)/10^4,1)+1,"","","Twenty","Thirty","Forty","Fifty","Sixty", "Seventy","Eighty","Ninety")&IF(MOD(MOD(C5,10^5),10^4)>=10^3," "&CHOOSE(FLOOR(MOD(MOD(C5,10^5),10^4)/10^3,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),""),IF(MOD(C5,10^5)>=10^3," "&CHOOSE(FLOOR(MOD(C5,10^5)/10^3,1)+1,"","One","Two","Three","Four","Five","Six","Seven", "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen", "Eighteen","Nineteen"),""))&IF(MOD(C5,10^6)>=10^3," Thousand"," ")&IF(C5>=10^2," "&CHOOSE(FLOOR(MOD(C5,10^3)/10^2,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),"")&IF(MOD(C5,10^3)>=10^2," Hundred"," ")&IF(MOD(C5,10^2)>=20," "&CHOOSE(FLOOR(MOD(C5,10^2)/10,1)+1,"","","Twenty","Thirty","Forty","Fifty","Sixty", "Seventy","Eighty","Ninety")&IF(MOD(MOD(C5,10^2),10)>=1," "&CHOOSE(FLOOR(MOD(MOD(C5,10^2),10),1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),""),IF(MOD(C5,10^2)>=1," "&CHOOSE(FLOOR(MOD(C5,10^2),1)+1,"","One","Two","Three","Four","Five","Six","Seven", "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen", "Eighteen","Nineteen"),""))&IF(C5=1," Dollar","")&IF(C5>1," Dollars","")&IF(AND(C5>0.99,MOD(RIGHT((ROUND(C5,2))*100,2),10^2)>0)," and","")&IF(MOD(RIGHT((ROUND(C5,2))*100,2),10^2)>=20," "&CHOOSE(FLOOR(MOD(RIGHT((ROUND(C5,2))*100,2),10^2)/10,1)+1,"","","Twenty","Thirty","Forty","Fifty","Sixty", "Seventy","Eighty","Ninety")&IF(MOD(MOD(RIGHT((ROUND(C5,2))*100,2),10^2),10)>=1," "&CHOOSE(FLOOR(MOD(MOD(RIGHT((ROUND(C5,2))*100,2),10^2),10),1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),""),IF(MOD(RIGHT((ROUND(C5,2))*100,2),10^2)>=1," "&CHOOSE(FLOOR(MOD(RIGHT((ROUND(C5,2))*100,2),10^2),1)+1,"","One","Two","Three","Four","Five","Six","Seven", "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen", "Eighteen","Nineteen"),""))&IF(MOD(RIGHT((ROUND(C5,2))*100,2),10^2)=1," Cent","")&IF(MOD(RIGHT((ROUND(C5,2))*100,2),10^2)>1," Cents",""))
i wanna add one more zero on the cents to written 0.100 as hundred cents
in Indian Format (Excel Formula)
=TRIM(IF(C6=1," Rupee","")&IF(C6>1," Rupees","")&IF(MOD(C6,10^15)>=(2*(10^14))," "&CHOOSE(FLOOR(MOD(C6,10^15)/10^14,1)+1,"","","Twenty","Thirty","Forty","Fifty","Sixty", "Seventy","Eighty","Ninety")&IF(MOD(MOD(C6,10^15),10^14)>=10^13," "&CHOOSE(FLOOR(MOD(MOD(C6,10^15),10^14)/10^13,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),""),IF(MOD(C6,10^15)>=10^13," "&CHOOSE(FLOOR(MOD(C6,10^15)/10^13,1)+1,"","One","Two","Three","Four","Five","Six","Seven", "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen", "Eighteen","Nineteen"),""))&IF(MOD(C6,10^15)>=10^13," Neel"," ")&IF(MOD(C6,10^13)>=(2*(10^12))," "&CHOOSE(FLOOR(MOD(C6,10^13)/10^12,1)+1,"","","Twenty","Thirty","Forty","Fifty","Sixty", "Seventy","Eighty","Ninety")&IF(MOD(MOD(C6,10^13),10^12)>=10^11," "&CHOOSE(FLOOR(MOD(MOD(C6,10^13),10^12)/10^11,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),""),IF(MOD(C6,10^13)>=10^11," "&CHOOSE(FLOOR(MOD(C6,10^13)/10^11,1)+1,"","One","Two","Three","Four","Five","Six","Seven", "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen", "Eighteen","Nineteen"),""))&IF(MOD(C6,10^13)>=10^11," Kharab"," ")&IF(MOD(C6,10^11)>=(2*(10^10))," "&CHOOSE(FLOOR(MOD(C6,10^11)/10^10,1)+1,"","","Twenty","Thirty","Forty","Fifty","Sixty", "Seventy","Eighty","Ninety")&IF(MOD(MOD(C6,10^11),10^10)>=10^9," "&CHOOSE(FLOOR(MOD(MOD(C6,10^11),10^10)/10^9,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),""),IF(MOD(C6,10^11)>=10^9," "&CHOOSE(FLOOR(MOD(C6,10^11)/10^9,1)+1,"","One","Two","Three","Four","Five","Six","Seven", "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen", "Eighteen","Nineteen"),""))&IF(MOD(C6,10^11)>=10^9," Arab"," ")&IF(MOD(C6,10^9)>=200000000," "&CHOOSE(FLOOR(MOD(C6,10^9)/10^8,1)+1,"","","Twenty","Thirty","Forty","Fifty","Sixty", "Seventy","Eighty","Ninety")&IF(MOD(MOD(C6,10^9),10^8)>=10^7," "&CHOOSE(FLOOR(MOD(MOD(C6,10^9),10^8)/10^7,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),""),IF(MOD(C6,10^9)>=10^7," "&CHOOSE(FLOOR(MOD(C6,10^9)/10^7,1)+1,"","One","Two","Three","Four","Five","Six","Seven", "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen", "Eighteen","Nineteen"),""))&IF(MOD(C6,10^9)>=10^7," Crore"," ")&IF(MOD(C6,10^7)>=2000000," "&CHOOSE(FLOOR(MOD(C6,10^7)/10^6,1)+1,"","","Twenty","Thirty","Forty","Fifty","Sixty", "Seventy","Eighty","Ninety")&IF(MOD(MOD(C6,10^7),10^6)>=10^5," "&CHOOSE(FLOOR(MOD(MOD(C6,10^7),10^6)/10^5,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),""),IF(MOD(C6,10^7)>=10^5," "&CHOOSE(FLOOR(MOD(C6,10^7)/10^5,1)+1,"","One","Two","Three","Four","Five","Six","Seven", "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen", "Eighteen","Nineteen"),""))&IF(MOD(C6,10^7)>=10^5," Lakh"," ")&IF(MOD(C6,10^5)>=20000," "&CHOOSE(FLOOR(MOD(C6,10^5)/10^4,1)+1,"","","Twenty","Thirty","Forty","Fifty","Sixty", "Seventy","Eighty","Ninety")&IF(MOD(MOD(C6,10^5),10^4)>=10^3," "&CHOOSE(FLOOR(MOD(MOD(C6,10^5),10^4)/10^3,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),""),IF(MOD(C6,10^5)>=10^3," "&CHOOSE(FLOOR(MOD(C6,10^5)/10^3,1)+1,"","One","Two","Three","Four","Five","Six","Seven", "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen", "Eighteen","Nineteen"),""))&IF(MOD(C6,10^5)>=10^3," Thousand"," ")&IF(C6>=10^2," "&CHOOSE(FLOOR(MOD(C6,10^3)/10^2,1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),"")&IF(MOD(C6,10^3)>=10^2," Hundred"," ")&IF(MOD(C6,10^2)>=20," "&CHOOSE(FLOOR(MOD(C6,10^2)/10,1)+1,"","","Twenty","Thirty","Forty","Fifty","Sixty", "Seventy","Eighty","Ninety")&IF(MOD(MOD(C6,10^2),10)>=1," "&CHOOSE(FLOOR(MOD(MOD(C6,10^2),10),1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),""),IF(MOD(C6,10^2)>=1," "&CHOOSE(FLOOR(MOD(C6,10^2),1)+1,"","One","Two","Three","Four","Five","Six","Seven", "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen", "Eighteen","Nineteen"),""))&IF(AND(C6>0.99,MOD(RIGHT((ROUND(C6,2))*100,2),10^2)>0)," and","")&IF(MOD(RIGHT((ROUND(C6,2))*100,2),10^2)>0," Paise","")&IF(MOD(RIGHT((ROUND(C6,2))*100,2),10^2)>=20," "&CHOOSE(FLOOR(MOD(RIGHT((ROUND(C6,2))*100,2),10^2)/10,1)+1,"","","Twenty","Thirty","Forty","Fifty","Sixty", "Seventy","Eighty","Ninety")&IF(MOD(MOD(RIGHT((ROUND(C6,2))*100,2),10^2),10)>=1," "&CHOOSE(FLOOR(MOD(MOD(RIGHT((ROUND(C6,2))*100,2),10^2),10),1)+1,"","One","Two","Three","Four","Five","Six", "Seven","Eight","Nine"),""),IF(MOD(RIGHT((ROUND(C6,2))*100,2),10^2)>=1," "&CHOOSE(FLOOR(MOD(RIGHT((ROUND(C6,2))*100,2),10^2),1)+1,"","One","Two","Three","Four","Five","Six","Seven", "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen", "Eighteen","Nineteen"),""))&IF(C6>0.01," Only",""))
Thanks alot. It works without VBA and can be easily copied paste.
Much appriciated.
I was looking for somthing like this ...and You made it.
GOD Bless you!
Am worried for long time how to solve it without macro or VB, but now am very helpful for using this formula in my spread sheet...
Thanks a lot
Amazing & Excellent work. Working fine for me. Thanks a lot for the effort.
This formula is not working so please correct formula and send on my Email Id, How to convert number in words forment, Like 700 = seven hunderd
Wah yar Zabardast.
Thank you very much for creation of Currency in to word Formula.
it helps me 100% in my profession life..... which solution was searching last 2 years.
Today, i achieved solution.
How to insert Rupees instead of Dollar and Paise instead of Cent in the outcome from above =spellnumber() function ?
By this Indian rupees and paise is not convert in words.Plz solve this problem.
great it worked for me perfectly
HI, im unable to understand and work the formula pls help..
I want to convert numeric value with word form without any currency.
Pl help me
Dear, i also need same as you are demanding.please provide me same function if you have,
thanks
You can also do it by my function :
Option Explicit
Option Base 0
'Author: thaipv@live.com
'Date: 30/11/2014
'Reference: https://support.microsoft.com/kb/95640
'More: http://www.techonthenet.com/excel/formulas/curr_to_words.php
Function READNUMBER(ByVal CNUMBER, Optional UPPER As Boolean = True) As String
Dim DIGIT, ATEEN, ATENS, PLACE(13), READ1__$, READ_23$, READ123$
Dim NUMBER1 As Byte, NUMBER2 As Byte, NUMBER3 As Byte, V As Byte
DIGIT = Array("", " one", " two", " three", " four", " five", " six", " seven", " eight", " nine")
ATEEN = Array(" ten", " elevent", " twelve", " thirteen", " fourteen", " fifteen", " sixteen", " seventeen", " eighteen", " nineteen")
ATENS = Array("", "", " twenty", " thirty", " forty", " fifty", " sixty", " seventy", " eighty", " ninety")
PLACE(1) = " trillion,": PLACE(4) = " billion,"
PLACE(7) = " million,": PLACE(10) = " thousand,"
If Trim$(CNUMBER) = "" Then
READNUMBER = ""
ElseIf Not IsNumeric(CNUMBER) Then
READNUMBER = "(ò_ó) Hmm, It is too embarrassing! XA can not read this number: " & "'" & CNUMBER & "'"
ElseIf CNUMBER 10 ^ 15 Then
READNUMBER = "(ò_ó) Hmm, It is too embarrassing! This number is too large to read."
Else
'// Doc dau am/duong cua so tien va xy ly so tien truoc khi doc//
READNUMBER = IIf(Round(CNUMBER, 0) < 0, "minus", "")
CNUMBER = Round(Abs(CNUMBER), 0): CNUMBER = "000000000000000" & CNUMBER
CNUMBER = Replace$(CNUMBER, ",", ""): CNUMBER = Right$(CNUMBER, 15)
'// Bat dau doc so //
For V = 1 To 13 Step 3
NUMBER1 = Mid$(CNUMBER, V, 1)
NUMBER2 = Mid$(CNUMBER, V + 1, 1)
NUMBER3 = Mid$(CNUMBER, V + 2, 1)
READ123 = ""
READ1__ = IIf(NUMBER1 = 0, "", DIGIT(NUMBER1) & " hundread")
Select Case NUMBER2
Case 0: READ_23 = DIGIT(NUMBER3)
Case 1: READ_23 = ATEEN(NUMBER3)
Case Else: READ_23 = ATENS(NUMBER2) & DIGIT(NUMBER3)
End Select
READ123 = READ1__ & READ_23
READNUMBER = Trim$(READNUMBER & IIf(Len(READ123) = 0, "", READ123 & PLACE(V)))
Next V
'// Xu ly (nhung) dau phay (",") du thua va VIET HOA chu dau tien //
READNUMBER = IIf(Right$(READNUMBER, 1) = ",", Left$(READNUMBER, Len(READNUMBER) - 1), READNUMBER)
READNUMBER = IIf(UPPER = True, UCase$(Left$(READNUMBER, 1)) & Mid$(READNUMBER, 2), READNUMBER)
End If
End Function
Dear
We are working in Oman .SO can you please send us the VBA MICRO code for Oman Currency.We write omani currency in three decimal palce
e.g 450.560 four hundred fifty Rials and five hundred sixty Baiza.
Pease help me to convert nuemerical Omani currencyin word in excel.
WITH REGARDS
MOHAMMED IFTEKHAR AHMED
DEAR FRIENDS, CAN I HAVE THE SAME THAT CAN AUTO SELECT CURRENCY ,,
SOMETIME IT MAY BE IN USD, EUR, AED, SAR, KWD
AND SO ON . SO HOW TO ENABLE THE FORMULA FOR MULTIPLE CURRENCY ..
THANKS
THANKS
how to the change the format to Lakh & Crores instead of Million & Trillion
I need your help,
Please know me Lac & Croers formula,
very urgent your co operation.
Best Regards
Samir.
Dhaka.