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

SpellNumber Bangladeshi Taka Function In Excel

SpellNumber Bangladeshi Taka Function In Excel

SpellNumber Bangladeshi Taka Function is a ready-to-use Excel function created with VBA code to change given numbers to words in Bangladeshi Taka. In other words, it converts a numeric value of BDT to words along with poysha.

There is no inbuilt function in Excel to display the numeric value in words. The VBA code for the SpellNumber function for US dollars is available on the Microsoft website.

You can insert this function in your Excel workbook. It converts the numeric value to words as the name suggests.

For example, to display $ 2,345.50 as “Dollar Two Thousand Three Hundred Forty-Five and Fifty Cents”, you can use the SpellNumber Function.

Whereas, to display BDT 2,345.50 as ” Two Thousand Three Hundred Forty-Five Taka and Fifty Poysha”, you can use the SpellNumber Bangladeshi Taka Function.

We have edited the same code with some changes for the required result.

Let us discuss the whole step by step process to create this SpellNumber Function for Bangladeshi Taka using the VBA module.

You can also check our SpellNumber Without Currency and SpellNumber for Indian Rupees.

How To Create SpellNumber Bangladeshi Taka Function

Following the below-given steps:

1. Open a new excel workbook.

2. Go To Developer Tab in the top ribbon.

3. Click on “Visual Basic” in the Code tab.

4. In the top menu, Go to insert Tab and Select “Module” shown below:

SpellNumber Indian Rupees

5. Copy the VBA code given below code and paste in the Module sheet.

VBA Code for SpellNumber Function for BDT


Option Explicit
'Main Function www.ExcelDataPro.com
Function SpellNumberEDP2(ByVal MyNumber, Optional MyCurrency As String = "")
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count, x
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Lacs "
Place(4) = " Crores "
Place(5) = " Hundred Crores "
' 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 <> ""
If Count = 1 Then
x = 3
Else
x = 2
End If
Temp = GetHundreds(Right(MyNumber, x))
If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > x Then
MyNumber = Left(MyNumber, Len(MyNumber) – x)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Dim str_amount, str_amounts
Dim str_cent, str_cents
Select Case UCase(MyCurrency)
Case "INR"
str_amount = "Rupee"
str_amounts = "Rupees"
str_cent = "Paisa"
str_cents = "Paisas"
Case "PKR"
str_amount = "Rupee"
str_amounts = "Rupees"
str_cent = "Paisa"
str_cents = "Paisas"
Case "BDT"
str_amount = "Taka"
str_amounts = "Takas"
str_cent = "Poysha"
str_cents = "Poysha"
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
SpellNumberEDP2 = 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

SpellNumberEDP2.vb

hosted with ❤ by GitHub

Error Rectification

If the above code doesn’t run or gives the following error “COMPILE ERROR” then follow the following steps:

  1. Click on “view raw” below the code.
    SpellNumber
  2. A new window will open with the code.
  3. Copy that code and paste it into the VBA module instead of direct copy-paste.

6. Click on the “Save” button. When you do this, a screen will display a dialog box as shown below.

SpellNumber Indian Rupees

Your file now consists of a macro thus you need to click the “No” option.

7. Select “Save As”.

SpellNumber Indian Rupees

Select the location and select the “Save as type” as an “Excel macro-enabled workbook”.

SpellNumber function for BDT (Bangladeshi Taka) is now ready to use.

How to Use SpellNumber Bangladeshi Taka Function

Let’s use that code that we inserted our excel workbook.

Insert number in column A. In column B insert the formula: = SpellNumberEDP2(A1, “BDT”). BDT is the string you need to enter in double inverted commas. Use the fill handle function to copy the formula in all rows.

SpellNumber Bangladeshi Taka

The function displays the following result:

SpellNumber Bangladeshi Taka

This function will only be available in this workbook. 

Please keep in mind that every time you open this workbook or any other macro-enabled workbook you will get a security warning below the ribbon. See image below:

SpellNumber Indian Rupees

Select “Enable this content” and click on “OK”. Otherwise, the code will not function.

SpellNumber Indian Rupees

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

If you have any queries or suggestions 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 / SpellNumber Bangladeshi Taka Function In Excel

About Shabbir Bhimani

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

Comments

  1. opuu says

    October 15, 2020 at 2:29 pm

    Excel inword in Taka.I need Excel formet.

    Reply
    • Fahim Lashkaria says

      October 17, 2020 at 1:35 pm

      Please follow the given instruction in the article to insert the TAKA function in excel.

      Reply
      • Md.mizanoor Rahman says

        November 10, 2020 at 10:24 pm

        IT SHOWING COMPILE ERROR:
        Syntax error
        pls send a attachment excell.

        Reply
        • Fahim Lashkaria says

          November 12, 2020 at 12:09 pm

          It’s working properly. Check your excel settings.

          Reply
          • Rakib says

            December 9, 2020 at 10:25 am

            Can’t copy the VBA code

          • Fahim Lashkaria says

            December 11, 2020 at 1:07 am

            under process. Will check and revert

  2. Rabiul Islam says

    November 10, 2020 at 3:17 pm

    Can’t do it
    show this red colour
    MyNumber = Trim(Left(MyNumber, DecimalPlace – 1))

    MyNumber = Left(MyNumber, Len(MyNumber) – x)

    Reply
    • Fahim Lashkaria says

      November 12, 2020 at 12:09 pm

      It’s working properly. Check your excel.

      Reply
  3. MD RUHUL AMIN says

    November 30, 2020 at 9:42 pm

    প্রতিটি কথায় বাংলা ফন্টে আসবে যেমন উদাহরণ

    2000 In words: Two Thousand Taka Only
    এটাকে কথায় দুই হাজার টাকা মাত্র
    এটার ফাংশন মডউল কি পাওয়া যাবে?

    Reply
    • Fahim Lashkaria says

      December 5, 2020 at 1:02 pm

      Please type your query in Englsih.

      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