Microsoft Excel macro code for converting digit into words in Indian currency format without paise remarks: For using the code enable macro in Excel sheet copy past below codes: Option Explicit 'Main Function Function SpellNumber_Indian(ByVal MyNumber) 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 ...
Its all about sharing knowledge on everything existing globally.