つらつら Excel VBA

私の備忘録です。

Excel VBA On Error なんたらエラー処理

Sub Sample1

    On Error GoTo onErr

    'エラーが起きるような処理

    GoTo onEnd 'Exit Subなど

onErr:

    'エラー時の処理を記載

    Debug.Print Err.Number 'エラー番号
    Debug.Print Err.Description 'エラーメッセージ

    Resume Next 'エラー発生個所に戻る?未検証
onEnd:

End Sub

※Err.Numberの種類別にエラートラップしたい方はご自由に。

 

その他

On Error Goto 0  エラートラップを無効化

On Error Resume Next  エラー発生時も気にせず次の行へ