How to convert number to words in Excel, comments page 9

Comments page 9. Total comments: 530

saurav narvekar says:
2019-07-31 at 6:32 am

dear sir,
what do if i want to spell a number in rupees ?
regard,
saurav narvekar
MITESH says:
2019-07-30 at 10:09 am

Thanks a lot for sharing formula. Amazing...
SURAJMOHAN says:
2019-07-29 at 11:38 am

hi guys
i cant use VBA in my company lap .
please help me to convert number to text in INR format only by suing any formulas without using macros
sakthivel says:
2019-07-24 at 3:36 pm

hai, i need to change the above coding to indian currency
Umair Ahmad says:
2019-07-23 at 1:34 pm

done. Thank you so much
Prashanth Nair says:
2019-07-17 at 4:14 am

Please help me get the above coding for converting Rupees as value
dan j says:
2019-07-03 at 3:37 am

i got an error. "Ambiguous name detected: SpellNumber" ..how i gonna solve this?

Thanks a lot
John Downes says:
2019-06-30 at 11:54 am

Mate you are a genius - thanks a million
John Downes says:
2019-06-30 at 11:54 am

Mate you are a genius - thanks a million
Josef+ says:
2019-06-26 at 4:24 pm

Thanks a lot. i edited the currency bit from Dollars to GHCedis & Pesewas and it worked great! so grateful.
Alvin says:
2019-06-26 at 3:37 am

Hi,

I'd like to convert in this format
P151.50 = One Hundred Fifty-One & 50/100 only

Thanks,
1. Alvin says:
  2019-06-26 at 8:15 am
  
  UPDATE
  I was able to solve this but works only on Windows 8, 8.1, & 10 Machines only
  here is the code
  Option Explicit
  
  '****************' Main Function *'****************
  Function SpellNumber(ByVal MyNumber)
  Dim Pesos, Cents, Temp
  Dim DecimalPlace, Count
  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 cents and set MyNumber to Peso amount
  If DecimalPlace > 0 Then
  Cents = Right(MyNumber, 2)
  MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
  End If
  Count = 1
  Do While MyNumber ""
  Temp = GetHundreds(Right(MyNumber, 3))
  If Temp "" Then Pesos = Temp & Place(Count) & Pesos
  If Len(MyNumber) > 3 Then
  MyNumber = Left(MyNumber, Len(MyNumber) - 3)
  Else
  MyNumber = ""
  End If
  Count = Count + 1
  Loop
  Select Case Pesos
  Case ""
  Pesos = "No Pesos"
  Case "One"
  Pesos = "One Peso"
  Case Else
  Pesos = Pesos & " Pesos"
  End Select
  Select Case Cents
  Case ""
  Cents = " Only"
  Case "1"
  Cents = " & .1/100 Cent Only"
  Case Else
  Cents = " & " & (Cents) & "/100 Only"
  End Select
  SpellNumber = Pesos & Cents
  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
  
  Sub test()
  Dim number As Double
  number = Range("A1").Value
  Range("A2").Value = SpellNumber(number)
  End Sub
  1. Ida says:
    2020-06-11 at 11:53 pm
    
    Tried solving this.
    Amount : 46,728.32
    But always appears as "Forty Six Thousand Seven Hundred Twenty Eight Pesos & Thirty Two/100 Only" instead of Forty Six Thousand Seven Hundred Twenty Eight Pesos & 32/100 Only
  2. Joy says:
    2020-02-06 at 8:12 am
    
    Thank you :)
    1. Joy says:
      2020-02-06 at 9:51 am
      
      i tried to sample 123.50
      result: One Hundred Twenty Three Pesos & .5/100 Only
      instead of: One Hundred Twenty Three Pesos & 50/100 Only
      Please help
      1. Dina Sarker says:
        2020-02-29 at 4:43 am
        
        dear sir,
        what do if i want to spell a number in BTD ?
        regard,
        Dina Sarker
Hisham says:
2019-06-19 at 12:46 pm

Hello, the code is great! I'm using to print checks, so I need to add the word "only" at the end of the spelled number (ie twenty one dollars only). How can I achieve this?
moo says:
2019-06-07 at 6:39 am

Hi,I need the number without the code of dollers and cents,thanks
Houcine says:
2019-05-25 at 9:34 am

Hi,
I need to convert a number with three digits after the decimal point, for example:
122,145 --> one hundred twenty two dollars one hundred forty five cents.
Thank you in advance.
Govind says:
2019-05-23 at 11:37 am

How To convert 48000 RS in English word in M S Excle
Greg Lomboy says:
2019-05-21 at 2:04 am

Why do I keep on getting #Name? Send Help please
1. Bou Bou says:
  2019-09-04 at 7:54 am
  
  me too
uzzal says:
2019-05-17 at 11:59 am

thanks brother
Bobby Macias says:
2019-05-14 at 4:09 pm

Hello. I am wanted to enter the numbers 1 - 4 in each individual cell in an entire column. Once i insert the number and push ENTER, i want a text to replace the number based on which text i attach to that number. For example. The text for 1 is "Shut", i insert one into the cell and hit enter and it changes the value 1 to "shut
Lito Santos says:
2019-05-09 at 4:33 pm

tried it and it worked:
$866.96 Eight Hundred Sixty Six Dollars and Ninety Five Cents
$866.955 Eight Hundred Sixty Six Dollars and Ninety Five Cents
but it does not round up.
it is supposed to be :
Eight Hundred Sixty Six Dollars and Ninety Six Cents

Please advise.
1. Lito Santos says:
  2019-05-09 at 6:17 pm
  
  please disregard the previous comment. the code is working fine.
  i just need to use the roundup function in excel.
  1. Nik says:
    2019-05-22 at 3:25 pm
    
    You are a genius, thank you, I had the exact same problem.
Marien says:
2019-04-23 at 6:02 am

Thank you for this wonderful Module. Take care.
Fahmid says:
2019-04-12 at 8:27 am

Thanks for authentic codes. It works where codes from Microsoft gave an error message.
Best wushes!
Regards,
Yannick says:
2019-04-10 at 10:10 am

It working very well. Thank's
Mike says:
2019-04-06 at 3:05 am

Hi, Can please I have the code without dollars and cents? thanks
1. Raja Zeeshan Khaliq says:
  2019-06-25 at 8:33 am
  
  Hey Mike!
  do you get the code without dollars and cents
  i also need this code
  if you get this code please send me
  i have really need this code
Manjeet kimar says:
2019-04-04 at 11:19 am

when i copy and paste this, it gives me errors, what am i doing wrong?
ARNON says:
2019-04-04 at 9:53 am

SIMPLE, LOL, YOUR MACROS WORKED FIRST TIME, NO PROBLEMS, ONLY REQUEST IS FOR A CHANGE TO 00/00...01/00...03/00 AND SO ON INSTEAD OF CENTS, GOT YOURS TO WORK 00/00 AND 01/00 TO WORK, BUT AFTER THAT, ALL IS TEXT /00. SO I DELETED CENTS ALL TOGETHER TILL I GET THE CORRECT MACROS FOR THE OO/00 TO 99/00, PLEASE AND THANKS
1. David Zahn says:
  2020-08-06 at 5:08 pm
  
  Here is my solution in a shorter macro:
  Function NumberToWords(ByVal StartNumber As Currency) As String
  
  Dim Buffer As String
  Dim Dollars
  Dim Cents
  Dim NumberofGroups
  Dim NumberSegment
  Dim Hundreds
  Dim Tens
  Dim Ones
  GroupNames = Array("", "Thousand ", "Million ", "Billion ", "Trillion ")
  OnesNames = Array("", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ", "Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
  TensNames = Array("", "", "Twenty ", "Thirty ", "Fourty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
  
  Dollars = Fix(StartNumber)
  Cents = Fix(100 * (StartNumber - Fix(StartNumber)) + 0.5)
  NumberofGroups = Fix((Log(Dollars) / Log(10)) / 3)
  
  Dim i
  For i = NumberofGroups To 0 Step -1
  NumberSegment = Fix(Dollars / 10^ ^ (i * 3))
  Hundreds = Fix(NumberSegment / 100)
  Tens = Fix((NumberSegment - (Hundreds * 100)) / 10)
  Ones = NumberSegment - (Hundreds * 100) - (Tens * 10)
  
  If Hundreds > 0 Then
  Buffer = Buffer + OnesNames(Hundreds) + "Hundred "
  End If
  If Tens > 0 Then
  If Tens > 1 Then
  Buffer = Buffer + TensNames(Tens) + OnesNames(Ones)
  Else
  Buffer = Buffer + OnesNames(Tens * 10 + Ones)
  End If
  Else
  Buffer = Buffer + OnesNames(Ones)
  End If
  
  If NumberSegment > 0 Then
  Buffer = Buffer + GroupNames(i)
  End If
  
  Dollars = Dollars - (NumberSegment * 10^ ^ (i * 3))
  Next i
  
  Buffer = Buffer + "and "
  If Cents < 10 Then
  Buffer = Buffer + "0"
  End If
  Buffer = Buffer + Trim(Str(Cents)) + "/100 *****************************************"
  
  NumberToWords = Buffer
  
  End Function
2. Arvin says:
  2019-05-11 at 1:53 am
  
  I need the answer for this
Zainul Abdeen says:
2019-04-04 at 8:56 am

Thanks you very much....
Mujahid Azeem says:
2019-04-02 at 6:48 am

Hi,
Could you tell me the code where I can mention "and" before the last figures e.g. Rs 1,987,290 (Rupees one million nine Hundred eighty seven thousand two hundred and ninety only)
1. KRISHNAN says:
  2021-06-30 at 3:11 am
  
  pls use below function
  Option Explicit
  'Main Function
  Function SpellNumber(ByVal MyNumber)
  Dim Rupees, only, Temp
  Dim DecimalPlace, Count
  ReDim Place(9) As String
  Place(2) = " Thousand, "
  Place(3) = " Million, "
  Place(4) = " Billion, "
  Place(5) = " Trillion, "
  
  MyNumber = Trim(Str(MyNumber))
  DecimalPlace = InStr(MyNumber, ".")
  If DecimalPlace > 0 Then
  only = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
  "00", 2))
  MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
  End If
  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 Rupees
  Case ""
  Rupees = "No Rupees"
  Case "One"
  Rupees = "One Dollar"
  Case Else
  Rupees = Rupees & " Only"
  End Select
  SpellNumber = "Rupees " & Rupees
  End Function
  
  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
  
  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
  
  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
Jay says:
2019-03-27 at 12:31 pm

Hi, can i have the code without dollars and cents, E.g.
Four Million Six Hundred Three Thousand Four Hundred Twenty Two
Guruprasad says:
2019-03-19 at 9:55 am

Thank you Bro....
haider says:
2019-03-15 at 7:59 am

i just want the wording not any currency. what should i do?
Sultan Ahmed says:
2019-02-21 at 1:02 pm

How can I download vba code to my phone?
Ola says:
2019-02-20 at 5:19 pm

Thank you for this.
However, this was noticed.
For example, i tried to spell 450,750.34
Four Hundred Fifty Thousand Seven Hundred Fifty Dollars and Thirty Four Cents
In my country, we spell like this
Four Hundred and Fifty Thousand, Seven Hundred and Fifty Dollars, Thirty Four Cents
Can you please help me tweak the VBA code to have this new result.
1. Bindesh says:
  2019-08-11 at 8:47 am
  
  Option Explicit
  'Main Function
  Function SpellNumber(ByVal MyNumber)
  Dim Rupees, Paisa, Temp
  Dim DecimalPlace, Count
  ReDim Place(9) As String
  Place(2) = " Thousand "
  Place(3) = " Million "
  Place(4) = " Billion "
  Place(5) = " Trillion "
  
  MyNumber = Trim(Str(MyNumber))
  DecimalPlace = InStr(MyNumber, ".")
  If DecimalPlace > 0 Then
  Paisa = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
  "00", 2))
  MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
  End If
  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 Rupees
  Case ""
  Rupees = "No Rupees"
  Case "One"
  Rupees = "One Dollar"
  Case Else
  Rupees = Rupees & " Rupees"
  End Select
  Select Case Paisa
  Case ""
  Paisa = " and No Paisa"
  Case "One"
  Paisa = " and One Cent"
  Case Else
  Paisa = " and " & Paisa & " Paisa"
  End Select
  SpellNumber = Rupees & Paisa
  End Function
  
  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
  
  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
  
  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
2. wasiullah says:
  2019-04-01 at 8:02 am
  
  did u got that code? i need it too
kherlen alih says:
2019-02-18 at 2:26 am

help me naman po pano mag convert numbers to words sa excell for cheque please ..
Liza says:
2019-02-12 at 4:59 am

Thank you Sir for sharing this formula. It's help me a lot! I really appreciate that. Thanks again.
Adil Farooqui says:
2019-02-02 at 1:55 pm

This formula is very good working on any Currency..
Tanzeel Hussain says:
2019-02-01 at 4:00 pm

I Was looking for him a lot, This formula hit is very good working on any Currency,
i am very happy thank you very much sir, Great job, May Allah bless you.?????????
1. Raja Zeeshan Khaliq says:
  2019-06-25 at 8:31 am
  
  Assalam -o- Alaikum
  My dear brother i want to convert a mathematical digits in english words without any currency like as
  564 Five Hundred and Sixty Four
  what i do now please help me as soon as possible
  i have to prepare Result Cards
  1. Ikram Ullah says:
    2019-09-19 at 10:35 am
    
    Wa Alaikum Assalam,
    Dear Raja Zeeshan
    Please in macro editor window press Ctrl+F , find Dollar and replace it with empty space . do it again for Dollars and similarly for Cent and cents respectively. I hope it will solve your problem.
Supriya says:
2019-01-31 at 7:18 am

I am getting a value like this :Four Hundred Eighty Dollars and Seventy One Cents. Instead of Dollars I want to have it in Kuwaiti Dinars and fills.
Pls help me
Supriya says:
2019-01-31 at 7:16 am

Dear, this is to update you that the formula is not working perfectly. See the response that I am getting:->
For Kuwaiti Dinars
for KD 122.050 I got: One Hundred Twenty Two Kuwait Dinar and Five fils

the correct answer has to be: One Hundred Twenty Two Kuwait Dinar and Fifty fils
What to change now
1. Eimantas says:
  2019-06-05 at 5:55 am
  
  the issue is to replace the separator from "." to "," in the number or in the formula from:
  MyNumber = Trim(Str(MyNumber))
  DecimalPlace = InStr(MyNumber, ".")
  to:
  MyNumber = Trim(Str(MyNumber))
  DecimalPlace = InStr(MyNumber, ",")
2. thon says:
  2019-03-08 at 12:34 am
  
  look at the figure, it says .05 and not .50, the result is correct it seems the figure is point zero five, therefore the result should be five instead of fifty
Jorge Baez says:
2019-01-29 at 10:25 pm

I keep getting a syntax error
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Dollars = Temp & Place(Count) & Dollars
Marjorie Montemayor says:
2019-01-29 at 3:50 am

how can i convert numbers to words for Peso
1. Oli says:
  2019-01-29 at 5:50 am
  
  replace lng mam yung dollars nang pesos (control+h) tapos replace all lng..
  
  dollars to pesos
  dollar to peso
  1. Joseph Robert A Costacorta says:
    2020-05-27 at 7:09 am
    
    How about po yong 66.15 for example.
    Sinasabi nya Sixty six pesos and Fourteen Cents lng. Paano po babaguhin para maging fifteen sya.
jeevan singh says:
2019-01-25 at 6:59 am

Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "

MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ".")
If DecimalPlace > 0 Then
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumber = Dollars & Cents
End Function

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

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

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
1. Loy says:
  2019-03-23 at 1:26 am
  
  when i copy and paste this, it gives me errors, what am i doing wrong?
  1. Abhishek kumar says:
    2019-09-04 at 4:30 am
    
    Option Explicit
    'Main Function
    Function SpellNumber(ByVal MyNumber)
    Dim Rupees, Paisa, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "
    
    MyNumber = Trim(Str(MyNumber))
    DecimalPlace = InStr(MyNumber, ".")
    If DecimalPlace > 0 Then
    Paisa = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
    "00", 2))
    MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    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 Rupees
    Case ""
    Rupees = "No Rupees"
    Case "One"
    Rupees = "One Rupees"
    Case Else
    Rupees = Rupees & " Rupees"
    End Select
    Select Case Paisa
    Case ""
    Paisa = " and No Paisa"
    Case "One"
    Paisa = " and One Paisa"
    Case Else
    Paisa = " and " & Paisa & " Paisa"
    End Select
    SpellNumber = Rupees & Paisa
    End Function
    
    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
    
    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
    
    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
    1. Dr. RAtnapal says:
      2019-09-17 at 4:53 pm
      
      i use this code but not given result. massage come Privacy warning; This documents contains macros, Activex controls,XML expansion pack information, or web components. These may include personal information that can not be removed by the documents inspector.
    2. Abhishek kumar says:
      2019-09-04 at 4:30 am
      
      than save ur file
Yohannes.melesse@syngenta .com says:
2019-01-18 at 8:14 am

please provide sample video
Bryan says:
2019-01-10 at 7:31 pm

Hello,

I'm trying to convert the numbers into a weight.
ex. 2000 = two thousand pounds
Is there a way to easily convert that?

Regards,
Bryan
AK1 says:
2019-01-09 at 7:01 am

How can I convert 123,156,236.64 KG into words? Please help me
Kieron Morrow says:
2019-01-03 at 10:23 am

Can anyone help with it converting negative numbers?

for example:

-£120.69 reading as Minus One Hundred Pound and Sixty Nine Pence
VISHAL SONI says:
2019-01-01 at 1:36 pm

I am use this formula but there is not convert amount in word format instead of that i show the formula in sheet. pl guide me.
Aple says:
2018-12-19 at 9:01 pm

Finally it works on Excell 2010!!! Thank you, Sir!!

I followed your instructions and it works!
Titigh says:
2018-12-12 at 10:01 am

123=One hundred and twenty three.
But excel make it
One hundred twenty three.
How am I going to edit the code so that it can accept the "and" even when I type 20550 It should be able to read "Twenty Five Thousand Five Hundred and Fifty
Please Note the "and"
Satham says:
2018-12-12 at 8:12 am

How not spelled if no cents.
Phaneth says:
2018-12-12 at 7:42 am

Every perfect, but error with unicode is "S" to "?"

Comments on: Two best ways to convert numbers to words in Excel

Comments page 9. Total comments: 530