Using Optional Arguments : Optional Arguments « Language Basics « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Language Basics
3. Optional Arguments

Using Optional Arguments

 

Function Avg(num1, num2, Optional num3)
    Dim totalNums As Integer

    totalNums = 3
    If IsMissing(num3) Then
        num3 = 0
        totalNums = totalNums - 1
    End If
    Avg = (num1 + num2 + num3) / totalNums
End Function

Sub avgSub()
    MsgBox Avg(2, 3)
    MsgBox Avg(2, 3, 5)
End Sub

 

Related examples in the same category