表紙へ

3.引数が省略されているか調べる

 

Private Sub MyFunc(Optional X As Variant)

    If IsMissing(X) Then

        MsgBox "引数が省略されました。"

    End If

End Sub

 

メモ:Variant型の引数に対してのみ有効。