How to Convert Number into Word in Excel in Bangladeshi Taka How to Convert Number into Word in Excel in Bangladeshi Taka

Convert number into word in excel in Indian Rupees,, this code will work in all version of Microsoft Excel like (2003, 2007, 2010, 2013). Just fallow these easy steps.

1)         Copy this code

 Function SpellNumber(amt As Variant) As Variant  
 Dim FIGURE As Variant  
 Dim LENFIG As Integer  
 Dim i As Integer  
 Dim WORDs(19) As String  
 Dim tens(9) As String  
 WORDs(1) = "One"  
 WORDs(2) = "Two"  
 WORDs(3) = "Three"  
 WORDs(4) = "Four"  
 WORDs(5) = "Five"  
 WORDs(6) = "Six"  
 WORDs(7) = "Seven"  
 WORDs(8) = "Eight"  
 WORDs(9) = "Nine"  
 WORDs(10) = "Ten"  
 WORDs(11) = "Eleven "  
 WORDs(12) = "Twelve "  
 WORDs(13) = "Thirteen "  
 WORDs(14) = "Fourteen "  
 WORDs(15) = "Fifteen "  
 WORDs(16) = "Sixteen "  
 WORDs(17) = "Seventeen "  
 WORDs(18) = "Eighteen "  
 WORDs(19) = "Nineteen "  
 tens(2) = "Twenty "  
 tens(3) = "Thirty "  
 tens(4) = "Fourty "  
 tens(5) = "Fifty "  
 tens(6) = "Sixty "  
 tens(7) = "Seventy "  
 tens(8) = "Eighty "  
 tens(9) = "Ninety "  
 FIGURE = amt  
 FIGURE = Format(FIGURE, "FIXED")  
 FIGLEN = Len(FIGURE)  
 If FIGLEN < 12 Then  
 FIGURE = Space(12 - FIGLEN) & FIGURE  
 End If  
 If Val(Left(FIGURE, 9)) > 1 Then  
 SpellNumber = "Taka "  
 ElseIf Val(Left(FIGURE, 9)) = 1 Then  
 SpellNumber = "Taka "  
 End If  
 For i = 1 To 3  
 If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then  
 SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))  
 ElseIf Val(Left(FIGURE, 2)) > 19 Then  
 SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))  
 SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))  
 End If  
 If i = 1 And Val(Left(FIGURE, 2)) > 0 Then  
 SpellNumber = SpellNumber & " Crore "  
 ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then  
 SpellNumber = SpellNumber & " Lakh "  
 ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then  
 SpellNumber = SpellNumber & " Thousand "  
 End If  
 FIGURE = Mid(FIGURE, 3)  
 Next i  
 If Val(Left(FIGURE, 1)) > 0 Then  
 SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " Hundred "  
 End If  
 FIGURE = Mid(FIGURE, 2)  
 If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then  
 SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))  
 ElseIf Val(Left(FIGURE, 2)) > 19 Then  
 SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))  
 SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))  
 End If  
 FIGURE = Mid(FIGURE, 4)  
 If Val(FIGURE) > 0 Then  
 SpellNumber = SpellNumber & " Paise "  
 If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then  
 SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))  
 ElseIf Val(Left(FIGURE, 2)) > 19 Then  
 SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))  
 SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))  
 End If  
 End If  
 FIGURE = amt  
 FIGURE = Format(FIGURE, "FIXED")  
 If Val(FIGURE) > 0 Then  
 SpellNumber = SpellNumber & " Only. "  
 End If  
 End Function  

2)         Open excel sheet and press “Alt+F11”

3)         A new windows will appear click on “Inert” and then “Module”

4)        Paste the code in box

5)         Click on “File” and then “Close and return to Microsoft Excel”

6)        Keep the course in box where you want to convert number to word and type “=spellnumber(row & column)” (Eg. E7) and press “Enter”