Option Compare Database
Option Explicit

'--------------------------------------
'OptionalPramTest関数呼出
'--------------------------------------
Function CallOptionalPramTest()

    Dim rt As Long
    
    rt = OptionalPramTest(1)

    '結果出力
    Debug.Print rt

    rt = OptionalPramTest(1, 2)

    '結果出力
    Debug.Print rt

    rt = OptionalPramTest(1, 2, 3)

    '結果出力
    Debug.Print rt

End Function

'---------------------------------------------
'関数の引数を省略する
'指定された数値の合計を返す
'---------------------------------------------
Function OptionalPramTest(arg1 As Long, Optional arg2 As Long, Optional arg3 As Long) As Long
    
    Dim wk_sum As Long

    '引数が指定されたかIsMissingで調べる事ができます
    wk_sum = arg1 + IIf(IsMissing(arg2), 0, arg2) + IIf(IsMissing(arg3), 0, arg3)
    
    OptionalPramTest = wk_sum

End Function