JA EXCEL

Click here to download addin or copy paste below code in your excel module Function Numbertowords(ByVal MyNumber)     Dim Rupees, paisa, 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 paisa and set MyNumber to Rupee amount.     If DecimalPlace > 0 Then         paisa = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _                   "00", 2))         MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))     End If     Count = 1     Do While MyNumbe...

>>>>>>>>>>>   Please click here to download addin Or  copy paste below code in your excel module Function multilookup(lookupvalue As String, lookuprange As Range, Optional columnnumber As Integer = "2") Dim i As Integer Dim Result As String For i = 1 To lookuprange.Rows.Count If lookupvalue = lookuprange.Cells(i, 1).Value Then Result = Result & " " & lookuprange.Cells(i, columnnumber) & "," End If Next i multilookup = Left(Result, Len(Result) - 1) End Function