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

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 13. Total comments: 530

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

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

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

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

  3. Can i get rid of the dollar / dollars word?

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

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

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

    2. The VBA code is in the article above.

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

  6. Sir, If We Want to Remove Cents What Will We Don Please Reply me

  7. Sir, If We Want to Remove Cents What Will We Don Please Reply me

  8. In spanish we do not say "Three hundred" in two words, we say "Trecientos" in one word. Is there a say to add another clause to list numbers from 100-999
    I try to add this but I am getting an error

    Else ' If value between 100-999...
    Select Case Val(Left(TensText, 1))
    Case 20: Result = "Ciento"
    Case 21: Result = "Doscientos "
    Case 22: Result = "Trescientos "
    Case 23: Result = "Cuatrocientos "
    Case 24: Result = "Quinientos "
    Case 25: Result = "Seicientos "
    Case 26: Result = "Setecientos "
    Case 27: Result = "Ochocientos "
    Case 28: Result = "Novecientos "

  9. I was able to use the SpellNumber successfully for all numbers except for numbers that are only in the thousands with any other numbers (e.g. 54,000 or 30,000). I get two spaces before the word Dollars. I had a similar problem with numbers that ended in the hundred dollars and numbers that ended with 20, 30, 40, 50, 60, 70, 80 and 90. To fix the problem, I changed the GetHundreds = Result to GetHundreds = Trim(Result) and GetTens = Result to GetTens = Trim(Result). I don't know how to change the code for numbers that are only in the Thousands.

  10. i need to display my currency in riyal instead of dollars ...

  11. I write this formula

    =CONCATENATE("US ",spellnumber(cell),"***")

    I don't know what's wrong it issue "Name?" Anyone can answer me?

    Many Thanks,
    Alicia

  12. This is awesome! I know nothing about VBA but it still made it happen with this so Thanks a ton. however, how do I exclude cents/paisa from the code?i.e. will not need any decimals.

    Thanks again.

  13. Hello Prem,
    Thanks,man. it helped me out.

    Regards:
    Mozammel
    Chittagong, Bangladesh.

  14. Please send details of excel sheet in permanent add for automatically spellnumber on MS excel- 2007

  15. modules after what are the doing 1

  16. modules after what are the doing

  17. Hi, Congrats, It is very helpful. Thank you so much.
    How to make change the words starting with Dollars & Cents first.
    Eg. Rupees One hundred and Paisa Fifty Only instead of One hundred Rupees and Fifty Paisa Only.

    Br//
    Prem

  18. Please send details of excel sheet in permanent add for automatically spellnumber on MS excel- 2007.

    Also 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
    I am waiting for your reply Thanks Muhammad Ashfaq from Pakistan Karachi.....

  19. Hi Dear, Can you pleases help to fix the decimal up to 3 Digit. Like below:

    45.975 -Forty Five Dollar and Nine Hundred seventy Five Cents.

  20. Please send details of excel sheet in permanent add for automatically spellnumber on MS excel- 2016

    Awaiting for reply...

  21. Dear David ,
    In reference to Irina's chat string the same sheet is required by me .I am unable to poke in hours in preparing the formulation ready sheet
    Much oblighed
    Sincerely 'very faithfully
    CEEN

  22. UpTo 1 Lac Not Convert To In Word Please Help

  23. Hi Irena

    I have emailed you the document as requested. Hope you can help :)

    1. Thank you for the document, David.

      The problem is that the formula results are rounded in Excel, while VBA gets a string and converts only the first 2 characters after the separator. To avoid this issue, please use the following formula instead:
      =spellnumber(ROUND(N24,2))

  24. Hi, I have an issue where i am trying to spellnumber a figure in a summed cell. I have changed the currency to GBP and Pence, but the spell number keeps minusing 1 Pence from the written number. If i do it on an un-summed cell it works fine.

    PLEASE HELP!?

    1. Hello David,
      I'm sorry, but we can't reproduce this issue on our side, the function spells numbers from a summed cell correctly. Could you try to follow the steps from the post again and check if it works for you?

      1. HI Irina
        It was only happening between numbers involving 40-70. Very strange as other than that it works perfectly other than not putting an 'and' in after hundred but we can add that in no probs.

        Quite happy to send the doc if required.

        1. Hi David,
          Thank you for the details. It would be great to have a look at the document, please send it to support@ablebits.com with a link to this post, it may help us understand what is causing this strange behaviour.

  25. I have a file containing multiple sheets the first of which is an index
    sheet. The other sheets are hidden. I want to be able to click on a
    hyperlink in the index sheet that will send me to the hidden sheet and
    open it.
    Is this possible ?

  26. I have tried and it was successful. But it was all in dollars.. How about in Qatar Riyals? How can i do it? Can you feed the module formula?

  27. Please email formula convert number to word

  28. Many thanks to admin

  29. Please email formula convert to Ringgit Malaysia (RM)

  30. Please kindly send me the formula also.
    Many thanks.

  31. Please send me also

  32. I have follwed your instruction & But still the error as #Name is apprearing on the spell number formula. please help

  33. Thnks for ur help. Its been a pleasure to have guidance.

  34. Very useful and clear explanation. 5 Star:D
    Thank you for sharing this information with us.

  35. Dear sir, please how to make wordstodigit formula details

  36. Please send me the excel sheet for converting dollars to words. I tried to paste from an earlier Spellnumber post using VBA but I get a #Name error.

    Thank you.

    1. The VBA code from the example above works perfectly when we try it. Please, repeat the steps from the tutorial making sure that you paste the code without losing any lines, and save your document in the proper way as it is described. If this still doesn't help, try our add-in. If the error won't disappear, send us your workbook and the link to this article and your comment to support@ablebits.com.

  37. It is very simple to convert dollar into your currency for example if you have a Rupee go to Module (micro-soft visual basic) enter Ctrl + R just replace dollar and cent with your currency.

    Thanks for more details kindly contact on my email. asifashraf930@gmail.com

  38. What if I would like to put a special name?
    ex. for 100 will be "clint"

    Therefore,
    100 = Clint
    150 = Clint Fifthy
    123 = Clint Twenty Three
    etc..

    NB: Only for "100"

  39. Hi all,
    Can someone assist me to write
    1020 as one thousand and twenty not one thousand twenty please.
    Thank you in advance

    1. Just put "and ..." on GetTens' function, dude

  40. Working done ,
    after save i close this file again open try modify and try change then its showing error

  41. how to delete the rows using check bos in excel.

  42. Thank you! Copied and pasted the module, saved my file as an .xlm and bada-boom!

  43. Dear Sir please send me the copy of these excel sheet please ,as soon as possible , please please

  44. Dear . Alexander Frolov
    Thanks for the formula, its works nicely

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

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

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

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

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

  50. i want number to ward in rupees and due to this formula it comes into dollars, than what's the step for it..............

Post a comment



Thank you for your comment!
When posting a question, please be very clear and concise. This will help us provide a quick and relevant solution to
your query. We cannot guarantee that we will answer every question, but we'll do our best :)