• Skip to primary navigation
  • Skip to main content
  • Skip to primary sidebar

How To Convert Numeric Value Into English Words In Excel – SpellNumber

How To Convert Numeric Value Into English Words In Excel – SpellNumber

SpellNumber is a manually created function through VBA Programming to change a number to written text. In other words, it converts a numeric value into English words with currency.

In this article, we will learn step by step how to create this SpellNumber function using the VBA Function.

For example, I have $ 2,345.50 and need to be displayed as “Dollar Two Thousand Three Hundred Forty-Five and Fifty Cents”.

The SpellNumber macro does as its name suggests. We have created a new code with minor changes in currency, calculations, etc. They all are based on the Microsoft code.

There is no direct function in Microsoft Excel to perform the above action. However, as many and many users demanded, they created and published the special VBA macro code on their website.

Steps to create the SpellNumber Function

Step 1: Start Microsoft Excel.

Step 2: Press ALT+F11 to open the Visual Basic Editor.

Step 3: On the Insert menu, click Module.

SpellNumber

Step 4: Copy and Paste the below code into the Module sheet.

Code For SpellNumber

Option Explicit
'Main Function www.ExcelDataPro.com
Function SpellNumberEDP(ByVal MyNumber, Optional MyCurrency As String = "")
Dim Dollars, 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 dollar 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 Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Dim str_amount, str_amounts
Dim str_cent, str_cents
Select Case UCase(MyCurrency)
Case "SAR"
str_amount = "Riyal"
str_amounts = "Riyals"
str_cent = "Halala"
str_cents = "Halalas"
Case "AED"
str_amount = "Dirham"
str_amounts = "Dirhams"
str_cent = "Fil"
str_cents = "Fils"
Case "GBP"
str_amount = "Pound"
str_amounts = "Pounds"
str_cent = "Penny"
str_cents = "Pence"
Case "EUR"
str_amount = "Euro"
str_amounts = "Euros"
str_cent = "Cent"
str_cents = "Cents"
Case "YEN"
str_amount = "Yen"
str_amounts = "Yens"
str_cent = "Sen"
str_cents = "Sens"
Case Else:
str_amount = "Dollar"
str_amounts = "Dollars"
str_cent = "Cent"
str_cents = "Cents"
End Select
Select Case Dollars
Case ""
Dollars = "No " & str_amounts
Case "One"
Dollars = "One " & str_amount
Case Else
Dollars = Dollars & " " & str_amounts
End Select
Select Case cents
Case ""
cents = " and No " & str_cents
Case "One"
cents = " and One " & str_cent
Case Else
cents = " and " & cents & " " & str_cents
End Select
SpellNumberEDP = Dollars & 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
view raw SpellNumberEDP.vb hosted with ❤ by GitHub

Step 5: Press Ctrl+S to save the workbook. As this workbook now contains a macro, while saving Excel will display the following message “The following features cannot be saved in macro-free workbook”. Click “No”.

SpellNumber

You will see a new dialog. Select the “Save As” option.

SpellNumber

From the drop-down menu select the “Save as type” as “Excel macro-enabled workbook”.

We are done with creating the function in your workbook. One thing is to be kept in mind that this function will only be available in this workbook.

As you plan to change workbook, it is necessary to paste the code for each workbook by following the above-mentioned steps.

Note: Our workbook now contains a macro. Each time you open this workbook or any other macro-enabled workbook, a security warning will appear below the ribbon. Select the “Enable this content” option and click OK.

SpellNumber

SpellNumber

How To Use the SpellNumber Function?

To display the given number in Dollars, write a number in a cell. Enter the following formula: =SpellNumberEDP(A1).

SpellNumber

It will display the numbers as shown below:

SpellNumber

We have created the code for 5 other currencies; Euro, Japanese Yen, Great Britain Pounds, Saudi Riyals and Uae Dirhams.

Unlike the above, here you need to enter two parameters. one is the SpellNumber function and second is the currency in quote marks. For USD you don’t need to put the second parameter.

The second parameter is different for each currency:

1. SpellNumber European Euro

European Euro = SpellNumberEDP(A1, “EUR”). Applying the parameter will display the numbers in words as displayed below:

SpellNumber European Euros

Result:

SpellNumber European Euros

For more information SpellNumber European Euro.

2. SpellNumber Japanese Yen

Japanese Yen = SpellNumberEDP(A1, “YEN”). Applying the second parameter will display the numbers as given below:

SpellNumber Japanese Yen

Result:

SpellNumber Japanese Yen

For more information SpellNumber Japanese Yen

3. SpellNumber Great Britain Pounds

Great Britain Pound = SpellNumberEDP(A1, “GBP”). Add GBP code in quote marks and it will display the pounds in words.

SpellNumber Great Britain Pound

Result: SpellNumber Great Britain Pound

For more information SpellNumber Great Britain Pound

4. SpellNumber Saudi Riyal

Saudi Riyal = SpellNumberEDP(A1, “SAR”). Enter the second parameter and it shows as below:

SpellNumber Saudi Riyals

Result:

SpellNumber Saudi Riyals

For more information SpellNumber Saudi Riyal

5. SpellNumber UAE Dirham

UAE Dirhams = SpellNumberEDP(A1, “AED”). Put the send parameter as shown here. It will display the results as given below:

SpellNumber UAE Dirham

Result:

SpellNumber UAE Dirham

 

For more information SpellNumber UAE Dirham

Please make note that this code is applicable where the currency system is similar to that of dollars. Trillion, Billions, Million, etc are the same.

In such cases, if you want to add another currency, you need to make 5 changes as shown:

SpellNumber

In the above code, instead of “SAR” write your own currency code.

For str_amount write your currency singular unit and for str_amounts write plural currency units. For decimal values write singular decimal values against str_cent and plural against str_cents.

If they are different again the code will be changed. For example; In Indian Currency, it is in lacs and crores instead of trillions, billions or millions. We have also given the made the code for SpellNumber for Indian Rupees.

Click on the link to get the code: SpellNumber Indian Rupees

We thank our readers for liking, sharing and following us on different social media platforms.

If you have any queries please share in the comment section below. I will be more than happy to assist you.

Filed Under: Microsoft Excel

You are Here: Home / Reader's Question / Microsoft Excel / How To Convert Numeric Value Into English Words In Excel – SpellNumber

About Shabbir Bhimani

I have worked in Excel and like to share functional excel templates at ExcelDataPro.

Comments

  1. santhosh says

    December 21, 2018 at 12:18 am

    hi its worked but i need for a rupees

    Reply
    • Fahim Lashkaria says

      December 21, 2018 at 12:22 pm

      Noted. Will update soon for rupees also.

      Reply
  2. afzal says

    December 24, 2018 at 10:56 am

    Great work but sir I need in Dirhams. how I can get it?

    Reply
    • Fahim Lashkaria says

      December 28, 2018 at 11:53 am

      Thanks. YOur requirement has been noted and will be published on the website in near future.

      Reply
  3. jitender kumar says

    March 30, 2019 at 6:33 pm

    value your answer it should be like this
    150000 One Hundred Fifty Thousand Rupees One Lakh Fifty Thousnad Rupees

    please let me know

    Reply
    • Fahim Lashkaria says

      April 2, 2019 at 11:43 pm

      This is for dollars not indian ruppes dear.

      Reply
  4. Muhammad Jawad says

    April 15, 2019 at 6:55 pm

    hi,
    give me spell number code without currency.

    Reply
    • Fahim Lashkaria says

      April 24, 2019 at 5:58 pm

      Noted and will be soon published on the website. Thanks and regards.

      Reply
    • Fahim Lashkaria says

      April 27, 2019 at 10:51 am

      Dear Jawad,
      The above-mentioned request for SpellNumber code without currency has been published on the website. Click the link below to read the whole article:
      https://exceldatapro.com/spellnumber-function-without-currency/

      Reply
      • hermie says

        April 25, 2020 at 10:44 am

        Hi Sir, may I seek for your help with the standard in bank particularly with this format in check.
        Ex. ONE THOUSAND FIVE HUNDRED PESOS AND 60/100 ONLY.

        Thank you so much sir.

        Reply
        • Fahim Lashkaria says

          April 27, 2020 at 11:56 am

          It is not possible to get this code. We have to manually enter. But still, I will see if there is any way or not.

          Reply
          • hermie says

            May 1, 2020 at 8:40 am

            Thank you so much Sir.
            God bless…

          • Raggy says

            December 11, 2020 at 8:11 pm

            did you, as promised publish the code for cents in xx/100 format ?

          • Fahim Lashkaria says

            December 14, 2020 at 1:02 pm

            No dear. THat format is not possible. I tried but it’s not making that way through coding. Thanks.

  5. Shae says

    June 20, 2019 at 12:04 am

    Thank you so much for creating this!!

    Reply
    • Fahim Lashkaria says

      June 20, 2019 at 12:47 pm

      Thanks for the appreciation.

      Reply
  6. Samir Ayoub says

    August 28, 2019 at 6:40 pm

    Good Job Sir
    Can I add More cases like IQD EGYP and so?

    Reply
    • Samir Ayoub says

      August 28, 2019 at 6:43 pm

      Mean Give me permission to do it ^_^

      Reply
    • Fahim Lashkaria says

      August 29, 2019 at 12:10 pm

      If you know how to add surely you can do that at your end.

      Reply
      • Samir Ayoub says

        August 29, 2019 at 7:44 pm

        Oh thank you very much

        Reply
  7. bhuvansri says

    January 2, 2020 at 11:25 pm

    it works great in excel2013 and to want in rupees just change doller as rupee,cent as np in code when u after paste.its great working.
    thak u

    Reply
    • Fahim Lashkaria says

      January 4, 2020 at 12:08 pm

      Glad to know that it was helpful. Thanks for the appreciation. Please share it with your friends and family. Thanks

      Reply
  8. opuu says

    February 17, 2020 at 4:26 pm

    I need bd excel formet in taka

    Reply
    • Fahim Lashkaria says

      February 19, 2020 at 12:58 pm

      Noted. It will be soon published on our website.

      Reply
    • Fahim Lashkaria says

      March 1, 2020 at 9:54 pm

      https://exceldatapro.com/spellnumber-bangladeshi-taka/

      Reply
  9. RAHUL JAGETIA says

    June 28, 2020 at 1:18 am

    I want to write lakhs in words than?? can you make changes in code for Lakhs for INR.

    Reply
    • Fahim Lashkaria says

      June 29, 2020 at 2:00 pm

      We have noted your request. It will get published when in line.

      Reply

Leave a Reply Cancel reply

Your email address will not be published. Required fields are marked *

ExcelDataPro

Free Excel Pro Templates

  • Glossary
    • Accounting Glossary
    • HR & Payroll Glossary
    • Tax Glossary
  • Templates
    • Accounting
      • Financial Analysis
      • Financial Statement
    • Educational
    • Taxation
      • Federal Income Tax
      • GST
      • UAE VAT
      • UK VAT
    • Human Resources
      • HR & Payroll
      • HR Metrics
    • School Management
    • Social Media
    • Sales-Marketing
    • Personal Finance
    • Other
      • Health & Fitness
  • Functions
  • Calculators
  • Home
  • Contact
  • Privacy
  • Terms

© ExcelDataPro 2025. Content Licensed Under Creative Commons with Attribution Required

This website uses cookies to improve your experience. We'll assume you're ok with this, but you can opt-out if you wish. Cookie settingsACCEPT
Privacy & Cookies Policy

Privacy Overview

This website uses cookies to improve your experience while you navigate through the website. Out of these cookies, the cookies that are categorized as necessary are stored on your browser as they are essential for the working of basic functionalities of the website. We also use third-party cookies that help us analyze and understand how you use this website. These cookies will be stored in your browser only with your consent. You also have the option to opt-out of these cookies. But opting out of some of these cookies may have an effect on your browsing experience.
Necessary
Always Enabled
Necessary cookies are absolutely essential for the website to function properly. This category only includes cookies that ensures basic functionalities and security features of the website. These cookies do not store any personal information.
Non-necessary
Any cookies that may not be particularly necessary for the website to function and is used specifically to collect user personal data via analytics, ads, other embedded contents are termed as non-necessary cookies. It is mandatory to procure user consent prior to running these cookies on your website.
SAVE & ACCEPT