エラー処理を制御する

サンプルソース

Sub Sample1()
 On Error Goto 0
 Dim i As Long
 i = "test" ' この行で処理が中断
End Sub

Sub Sample2()
 On Error Goto ErrorLabel
 Dim i As Long
 i = "test" ' この行で処理は中断せず、ErrorLabelに処理が移る
 Exit Sub

:ErrorLabel
 Msgbox "エラー発生"
End Sub

Sub Sample3()
 On Error Resume Next
 Dim i As Long
 i = "test" ' この行で処理が中断せず、次の行が実行される
 Msgbox "処理終了"
End Sub

解説

On Error Goto 0はエラー処理を無効にします。エラーが発生した行で処理を中断します。
On Error Goto ラベルはエラーが発生すると、指定したラベルに処理を移します。
On Error Resume Nextはエラーが発生しても無視して処理を続けます。

何も定義していない場合は、On Error Goto 0が有効になっています。

Sample1で、型不一致によるデータ例外などのエラー発生した行で処理が中断されます。
Sample2で、エラー発生すると指定したラベルに処理が移ります。ラベル(ここでいうErrorLabel)は任意の名前を設定できます。
Sample3で、エラーが発生しても次の行が続けて実行されます。




Excel操作

セルの参照
セルを扱う
セルの範囲を扱う
行や列を扱う
セルに値を取得・設定する
セルに文字列で取得する
セルを選択する
選択しているセルを参照する
セル数、行数、列数を求める
行番号、列番号を求める
セルに名前を付けて参照する
行・列を表示・非表示にする
セルの位置を取得する
表全体を参照する
表の終端を取得する
セルのアドレスを取得する
セルを検索する
セルを並び替える

セルの書式
フォントサイズを設定する
フォント名を設定する
フォントの太字・斜体を設定する
取消線を設定する
上付き文字を設定する
下付き文字を設定する
セルの表示形式を設定する
配置を設定する
横書き・縦書きを設定する
文字の折り返しを設定する
セルを結合・解除する
セルの背景色・文字色を設定する
セルに罫線を引く(線の位置)
セルに罫線を引く(線の種類)
セルに罫線を引く(線の太さ)
セルに罫線を引く(線の色)
セル範囲の周囲に罫線を引く
セルを挿入する
セルを削除する
行の高さ・列の幅を設定する
行の高さ・列の幅を自動調整する
セルをロックする
文字列の一部の書式を設定する
セルに数式を設定する
セルに条件付き書式を設定する
セルにハイパーリンクを設定する
セルに入力規則を設定する
セルに入力規則を削除する
セルの入力規則を詳細設定する
Copyright (C) ExcelVBA@Workshop All rights reserved.