備忘録：Err.Raiseの動作検証

作成理由

エラー番号毎の出力メッセージが知りたかった。

コード

Sub ErrorRaisetest()
    On Error GoTo Err

    'エラーを発生させる
    '”アプリケーション定義またはオブジェクト定義のエラーです。”のエラーが発生する
    Err.Raise 1

    '"プロシージャの呼び出し、または引数が不正です。"のエラーが発生する
    Err.Raise 0

    '"プロシージャの呼び出し、または引数が不正です。"のエラーが発生する
    Err.Raise 5

    Exit Sub

'エラー処理
Err:
    Debug.Print Err.Number & vbCrLf & Err.Description
    Resume Next

End Sub

参考文献

Raise メソッド - MSDN - Microsoft