Posts

Showing posts from July 27, 2009

Getting words from figures is excellent in excel

Image
Amazing attribute of ms excel you can get your figures converted to words is as easy as 123. Only simple thing you got to know is this..... ------------------------------------------------------------------------------------ here is the formula!! you can copy this formula directly from here !! --------------------------------------------------------------------------------------- Function ConvertCurrencyToEnglish(ByVal MyNumber) Dim Temp Dim Rupees, Paise Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' Convert MyNumber to a string, trimming extra spaces. MyNumber = Trim(Str(MyNumber)) ' Find decimal place. DecimalPlace = InStr(MyNumber, ".") ' If we find decimal place... If DecimalPlace > 0 Then ' Convert Paise Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2) Paise = ConvertTens(Temp) ' Strip off Pa...