DEBAM

Here is an Excel Addin available for download which can be used to convert numbers into words. In excel sheet you enter data (amount) in figure and with a single command you will get the amount converted into words. E.g. you enter 123 and you shall get Rupees One Hundred Twenty Three Only. This addin may be very handy for various calculation in excel sheet and prepare report. I am using it for more than 3 years. I think, I should share it with you. Step 1 : Download  SureshAddin.xla Step 2 : Go to Control Panel and Open Folder Options. In View tab Click Show hidden files, folders and drives and click OK Step 3 : Windows XP Users: Go to My documents -> Application Data -> Microsoft -> Addins and paste here the downloaded SureshAddin. Windows 7 Users: Go to User’s Documents -> AppData -> Roaming -> Microsoft -> Addins and paste here the downloaded SureshAddin. Step 4 : Now Open Microsoft Office Excel from Start Menu and click the following button as highl...

to do that You may copy the following 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 " ' 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) > ...

How to Convert any number in word in Indian Rupees on Excel To do this may copy the following 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" t...