Microsoft Access Office VB VBA Help and Examples

Converting from Lotus 123 to Excel Missing functions

When converting from 123 not all functions in 123 are available to Excel users. One of these surprisingly is Weighted Average (WeightedAve) in order to deal with this problem the easiest way is to define your own function like the one below:

Public Function WeightedAve(Array1 As Range, Array2 As Range)
     WeightedAve = Application.WorksheetFunction.SumProduct(Array1, Array2) /
End Function
The code and application content of this site is copyright of Smiley I.T. and as such reproduction in any form which is for commercial use requires the permission of the Webmaster. Any use of this code for non-commercial use only requires a link or comment back to the original page you took the code from.