Two best ways to convert numbers to words in Excel

515 comments

1. 

   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.?????????

   • 

     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

     • 

       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.

2. 

   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

3. 

   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

   • 

     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

   • 

     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, ",")

4. 

   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

5. 

   Marjorie Montemayor says:
   2019-01-29 at 3:50 am

   how can i convert numbers to words for Peso

   • 

     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

     • 

       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.

6. 

   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

   • 

     Loy says:
     2019-03-23 at 1:26 am

     when i copy and paste this, it gives me errors, what am i doing wrong?

     • 

       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

       • 

         Abhishek kumar says:
         2019-09-04 at 4:30 am

         than save ur file

       • 

         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.

7. 

   Yohannes.melesse@syngenta .com says:
   2019-01-18 at 8:14 am

   please provide sample video

8. 

   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

9. 

   AK1 says:
   2019-01-09 at 7:01 am

   How can I convert 123,156,236.64 KG into words? Please help me

10. 

    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

11. 

    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.

12. 

    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!

13. 

    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"

14. 

    Satham says:
    2018-12-12 at 8:12 am

    How not spelled if no cents.

15. 

    Phaneth says:
    2018-12-12 at 7:42 am

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

16. 

    Arvind says:
    2018-12-11 at 1:50 am

    Please share the password of Popup Spell Zip File (add on to MS Excel) I have downloaded the Popup Spell Add on but while extracting it asks for password.

    Please help

17. 

    sandip says:
    2018-12-03 at 12:17 pm

    Excellent & easy way to convert number in word ..
    nothing to say .....

18. 

    Michael James says:
    2018-11-21 at 2:32 pm

    Can one use =spellnumber to convert ordinary numbers, not currency) to words. If so how.

19. 

    Ependra Singh says:
    2018-11-16 at 4:49 am

    Hi EveryOne

    Greeting for the day!!!

    I need solution that how to unhide hidden row which is hidden by advanced filter in vba. When i select all sheet and unhide the rows but it not work. Please suggest if anybody have any idea for it.

    Thanks,
    Ependra Singh
    9899808895

20. 

    Jaseem says:
    2018-11-06 at 4:01 pm

    Hi,

    Please give me one solution for convert sum amount to words in excel

21. 

    Win says:
    2018-10-14 at 1:53 am

    I Like This

22. 

    kunal says:
    2018-10-04 at 6:38 am

    after closing excel file and open again this method doesn't work.
    please help me!

23. 

    Sir Banter says:
    2018-09-25 at 1:47 pm

    since our currency is peso and the cents are express as centavos, i modified the code to reflect our currency...

    Option Explicit
    'Main Function
    Function SpellNumber(ByVal MyNumber)
    Dim Pesos, Centavos, 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
    Centavos = 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 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 Centavos
    Case ""
    Centavos = " "
    Case "One"
    Centavos = " and One Centavo"
    Case Else
    Centavos = " and " & Centavos & " Centavos"
    End Select
    SpellNumber = Pesos & Centavos
    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

24. 

    akshita bhutaiya says:
    2018-09-19 at 12:19 pm

    hello sir please provide code for Indian currency

    example. 100000 = one lac only
    1000 = one thousand
    100 = one hundred
    1000000 = ten lac only
    10000000 = one crore only

25. 

    akshita bhutaiya says:
    2018-09-19 at 12:19 pm

    hello sir please provide code for Indian currency
    example. 100000 = one lac only
    1000 = one thousand
    100 = one hundred
    1000000 = ten lac only
    10000000 = one crore only

26. 

    Jai says:
    2018-09-17 at 7:53 am

    hi,

    I need to know how i can break the lines of number in words as if the word is too long i need to print in the second line of cheque. how i can do that.

27. 

    Faten says:
    2018-09-16 at 7:31 pm

    Thank you !
    Well done for Dinars and Euros !

28. 

    Nirmal says:
    2018-09-15 at 6:34 am

    i got a problem with the excel which is unknown format number, i want to convert that in to 10 digit mobile numbers

    EX - ffffec0704fb682e5547b7d0d3da5527

29. 

    Ehtisham says:
    2018-09-12 at 4:09 am

    Can someone please help me making such a code that I only get "numbers converted into words",in excel i.e., without dollar or any any currency attached to it. Say I want to convert 2, 34 and 56, can it directly read two, thirty four , and fifty six respectively.

    I will appreciate such help.

30. 

    Eswari says:
    2018-08-22 at 12:55 pm

    Hi Dear ,

    I tried converting into indian rupees .

    But CTRL+H function is not working

    It is showing the error when I type "Dollars"as ' we couldnt find what you are looking for "

    Pls help

31. 

    hari singh says:
    2018-08-20 at 1:08 pm

    Hi,
    I'm trying to convert nums to words (in indian currency: like 448787 to four lakh fourty eight thousand seven hundred eighty seven only),but its not happening.
    Please help me & take me out of the problem.

32. 

    hari singh says:
    2018-08-20 at 1:05 pm

    Hi,
    I'm trying to convert nums to words (in indian currency: like 448787 to four lakh fourty eight seven hundred eighty seven only),but its not happening.
    Please help me & take me out of the problem.

33. 

    Shubham says:
    2018-08-16 at 4:37 am

    I want to modify it for Indian system, I changed Dollar to Rupee, but changing Millions to Lakhs wont be correct as Million has 6 zeroes and Lakhs as 5. the array defined has terms differing by 3 zeroes, can you help out with modifying the array to incorporate Lakhs

34. 

    Sir Daniel says:
    2018-08-11 at 5:52 am

    How can numbers be converted with no currency and if no cents to ignore cents bit
    Example
    5,455/= Five thousand Four hundred fifty five only
    5,455.50/= Five thousand Four hundred fifty five and Fifty cents only

35. 

    calven says:
    2018-07-22 at 9:07 am

    How to convert as follows:-
    1. 1,234 = One Thousand Two hundred And Thirty Four
    2. 1,200 = One Thousand And Two hundred?
    3. 1,202.50 = One Thousand Two hundred Two And Cents Fifty?
    4. 11,010 = Eleven Thousand And Ten?

    • 

      basha says:
      2018-09-09 at 11:43 am

      Function NumToWord(ByVal N As Currency) As String

      Const Ten = 10@
      Const Hundred = Ten * Ten
      Const Thousand = Ten * Hundred
      Const Lakh = Thousand * Hundred
      Const Crore = Lakh * Hundred
      Const Million = Thousand * Thousand
      Const Billion = Thousand * Million
      Const Trillion = Thousand * Billion

      If (N = 0@) Then NumToWord = "zero": Exit Function

      Dim Buf As String: If (N < 0@) Then Buf = "negative " Else Buf = ""
      Dim Frac As Currency: Frac = Abs(N - Fix(N))
      If (N < 0@ Or Frac 0@) Then N = Abs(Fix(N))
      Dim AtLeastOne As Integer: AtLeastOne = N >= 1

      If (N >= Crore) Then
      Buf = Buf & NumToWordDigitGroup(Int(N / Crore)) & " Crore"
      N = N - Int(N / Crore) * Crore
      If (N >= 1@) Then Buf = Buf & " "
      End If

      If (N >= Lakh) Then
      Buf = Buf & NumToWordDigitGroup(Int(N / Lakh)) & " Lakh"
      N = N - Int(N / Lakh) * Lakh
      If (N >= 1@) Then Buf = Buf & " "
      End If

      If (N >= Thousand) Then
      Buf = Buf & NumToWordDigitGroup(N \ Thousand) & " Thousand"
      N = N Mod Thousand
      If (N >= 1@) Then Buf = Buf & " "
      End If

      If (N >= Hundred) Then
      Buf = Buf & NumToWordDigitGroup(N \ Hundred) & " hundred"
      N = N Mod Hundred
      If (N >= 1@) Then Buf = Buf & " "
      End If

      If (N >= 1@) Then
      Buf = Buf & NumToWordDigitGroup(N)
      End If

      NumToWord = Buf
      End Function

      Private Function NumToWordDigitGroup(ByVal N As Integer) As String

      Const Hundred = " hundred"
      Const One = "one"
      Const Two = "two"
      Const Three = "three"
      Const Four = "four"
      Const Five = "five"
      Const Six = "six"
      Const Seven = "seven"
      Const Eight = "eight"
      Const Nine = "nine"
      Dim Buf As String: Buf = ""
      Dim Flag As Integer: Flag = False

      Select Case (N \ 100)
      Case 0: Buf = "": Flag = False
      Case 1: Buf = One & Hundred: Flag = True
      Case 2: Buf = Two & Hundred: Flag = True
      Case 3: Buf = Three & Hundred: Flag = True
      Case 4: Buf = Four & Hundred: Flag = True
      Case 5: Buf = Five & Hundred: Flag = True
      Case 6: Buf = Six & Hundred: Flag = True
      Case 7: Buf = Seven & Hundred: Flag = True
      Case 8: Buf = Eight & Hundred: Flag = True
      Case 9: Buf = Nine & Hundred: Flag = True
      End Select

      If (Flag False) Then N = N Mod 100
      If (N > 0) Then
      If (Flag False) Then Buf = Buf & " "
      Else
      NumToWordDigitGroup = Buf
      Exit Function
      End If

      Select Case (N \ 10)
      Case 0, 1: Flag = False
      Case 2: Buf = Buf & "twenty": Flag = True
      Case 3: Buf = Buf & "thirty": Flag = True
      Case 4: Buf = Buf & "forty": Flag = True
      Case 5: Buf = Buf & "fifty": Flag = True
      Case 6: Buf = Buf & "sixty": Flag = True
      Case 7: Buf = Buf & "seventy": Flag = True
      Case 8: Buf = Buf & "eighty": Flag = True
      Case 9: Buf = Buf & "ninety": Flag = True
      End Select

      If (Flag False) Then N = N Mod 10
      If (N > 0) Then
      If (Flag False) Then Buf = Buf & "-"
      Else
      NumToWordDigitGroup = Buf
      Exit Function
      End If

      Select Case (N)
      Case 0:
      Case 1: Buf = Buf & One
      Case 2: Buf = Buf & Two
      Case 3: Buf = Buf & Three
      Case 4: Buf = Buf & Four
      Case 5: Buf = Buf & Five
      Case 6: Buf = Buf & Six
      Case 7: Buf = Buf & Seven
      Case 8: Buf = Buf & Eight
      Case 9: Buf = Buf & Nine
      Case 10: Buf = Buf & "ten"
      Case 11: Buf = Buf & "eleven"
      Case 12: Buf = Buf & "twelve"
      Case 13: Buf = Buf & "thirteen"
      Case 14: Buf = Buf & "fourteen"
      Case 15: Buf = Buf & "fifteen"
      Case 16: Buf = Buf & "sixteen"
      Case 17: Buf = Buf & "seventeen"
      Case 18: Buf = Buf & "eighteen"
      Case 19: Buf = Buf & "nineteen"
      End Select

      NumToWordDigitGroup = Buf

      End Function

36. 

    Ratha says:
    2018-07-18 at 7:42 am

    Hello

    I want convert to Quantity PCS example : one hundred and ten pcs only.

    but i don't know how to write down code

37. 

    Thirumalai Selvan says:
    2018-07-10 at 10:49 am

    How to convert the 1,234 into One Thousand two hundred and thirty four

38. 

    Keith says:
    2018-06-29 at 9:42 pm

    Thank you everyone who made and updated this code. I appreciate it very much.

    There was a small glitch if the ones digit was a zero, where $820.00 would read "Eight hundred Twenty and No Cents" (two spaces between "Twenty" and "and"). I remedied this by removing the space in front of Thousand, Million, Billion, Trillion, as well as the statements for cents, and Hundred. Then I added a space to the end of Ten through Nineteen, and Twenty through Ninety in GetTens, and One through Nine in GetDigit.

    I am trying to come up with a means to hyphenate a two-digit number like 32 (Thirty-Two) while also leaving off the hyphen from two-digit number ending in 0 like 50 (Fifty). Any suggestions are welcome.

39. 

    CHNADAN ARYA says:
    2018-06-20 at 7:19 am

    SIR HOW CUT AND PAST THIS FUNCTION IN EXCEL SPREAD SHEET

40. 

    Aditha Karunarathna says:
    2018-06-14 at 7:22 am

    Here are the cordings for Rupee Values

    Option Explicit
    'Main Function
    Function SpellNumber(ByVal MyNumber)
    Dim Rupees, 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 Rupee amount.
    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 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 Rupee"
    Case Else
    Rupees = Rupees & " Rupees"
    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 = Rupees & 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

41. 

    RichieSalan says:
    2018-06-13 at 6:02 am

    does anyone here know how to program this:

    Php9,876,543.10

    Nine Million Eight Hundred Seventy-Six Thousand Five Hundred Forty-Three Pesos and 10/100

    How to format this?

42. 

    Sujan jk says:
    2018-06-09 at 12:23 pm

    What if I only wanted dollar not the cents.

43. 

    Gayathri says:
    2018-06-09 at 8:24 am

    How to convert lakhs into words

44. 

    Aziz says:
    2018-06-05 at 5:04 am

    Why i can't get the right word

    For example 760.75

    Ringgit Malaysia seventy six thousand seventy five only

    But if no cents, the word is right

    Can u help me

45. 

    Aziz says:
    2018-06-05 at 5:03 am

    Why i can't get the right word

    For example 760.75

    Ringgit Malaysia seventy six thousand seventy five only

    Can u help me

46. 

    malinda says:
    2018-05-28 at 6:50 am

    i wont to convert amount in block letters. how to do it

    • 

      Doug says:
      2018-05-28 at 12:37 pm

      Malinda:
      If the "block letters" are text the answer is the VBA code above or a third party tool. If the letters are not text, but a picture or something else, you'll have to type them as text.

47. 

    ICE LEE says:
    2018-05-23 at 12:24 am

    if required "27605.02" to Twenty Seven Thousand Six Hundred and Five and 02/100?

    • 

      Doug says:
      2018-05-23 at 12:36 pm

      ICE LEE:
      The VBA code is in the article above or you need a third party tool.

48. 

    Chen says:
    2018-05-08 at 4:11 am

    Can i get rid of the dollar / dollars word?

    example: 6,130.20 = Six Thousand One Hundred Thirty and Twenty Cents

49. 

    Joseph says:
    2018-05-07 at 3:12 pm

    CAN I HAVE A CODE THAT CONVERTS 11 TO ONE ONE OR 22 TO TWO TWO?

    • 

      Doug says:
      2018-05-07 at 4:26 pm

      The VBA code is in the article above.

    • 

      Doug says:
      2018-05-08 at 1:34 pm

      Joseph:
      The VBA code is in the article above or you need a third party tool.

50. 

    Kenny Telfer says:
    2018-05-04 at 3:01 pm

    Some errors in that code for me, I've fixed and changed to UK Pounds, also added "and" between the thousand and the hundreds, and a comma.

    Option Explicit
    'Main Function
    Function SpellNumber(ByVal MyNumber)
    Dim Pounds, Pence, 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 Pence and set MyNumber to Pounds amount.
    If DecimalPlace > 0 Then
    MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    Count = 1
    Do While MyNumber ""
    Temp = GetHundreds(Right(MyNumber, 3))
    If Temp "" Then Pounds = Temp & Place(Count) & Pounds
    If Len(MyNumber) > 3 Then
    MyNumber = Left(MyNumber, Len(MyNumber) - 3)
    Else
    MyNumber = ""
    End If
    Count = Count + 1
    Loop
    Select Case Pounds
    Case ""
    Pounds = "No Pounds"
    Case "One"
    Pounds = "One Pound"
    Case Else
    Pounds = Pounds & " Pounds"
    End Select
    SpellNumber = Pounds
    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 and "
    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