VBA入門② No.10 エラー処理 「On Error GoTo」

• エラーが発生した時、処理を分岐することができるよ
• Javascriptの「try〜catch文」みたいなものかな？
• 超便利＞＜

文法(While)

On Error GoTo ラベル名

ラベル名:
　　　　　エラー処理 

サンプル

• エラー処理のサンプルです
• 変数を数値型で宣言しているのに、文字列を代入しようとしている時点で、エラーが発生します
• エラーが発生すると、エラー処理用の行に飛びます
• おまけにエラー番号やエラー内容まで表示できます＞＜

Option Explicit

Sub myOnError()
On Error GoTo myDebug
    
Dim myValue As Integer
    myValue = "ほげ"    '←エラーが発生する行
    MsgBox "処理を終了します"
Exit Sub

myDebug:
    MsgBox "エラー番号:" & Err.Number
    MsgBox "エラー内容：" & Err.Description
    MsgBox "ヘルプファイル名" & Err.HelpContext
    MsgBox "プロジェクト名：" & Err.Source
    Resume Next
End Sub

VBA入門まとめへ戻る