Pass array parameter to a function : Function Parameter « Language Basics « VBA / Excel / Access / Word






Pass array parameter to a function

 
Function Avge(ParamArray aValues() As Variant) As Double

    Dim varValue As Variant
    Dim dblTotal As Double

    For Each varValue In aValues
        dblTotal = dblTotal + varValue
    Next

    Avge = dblTotal / (UBound(aValues) + 1)

End Function

 








Related examples in the same category

1.Parameters
2.Writing a Function Procedure with Arguments
3.Pass string value through Parameters
4.Optional Parameters
5.Default value parameters
6.Substitute a default value if an optional parameter is not provided
7.Named parameters
8.Using the Select Case Statement to check the function parameter
9.Passing Arrays as Parameters
10.Passing by Reference Versus Passing by Value
11.Pass by value
12.Illustrate a reason why you might want to pass a parameter by reference
13.Optional Parameters: Building Flexibility into Functions
14.Inserting Default Values When Parameters Are Missing
15.Accommodating for Missing Parameters in Your Code
16.Named Parameters: Eliminate the Need to Count Commas
17.Double type parameter
18.Object parameter