エラー処理:Excel VBA入門

はじめに topへ VBAコードの実行中にエラーが発生するときの対処法です。 例えば、A1/B1の結果をC1に入れる という計算をしたいので以下のようなコードを書きました。 Sub test() Dim x x = Range("A1").Value / Range("B1").Value Range("c1").Value = x End Sub A1,B1が未入力であると、以下のようなメッセージが表示されて止まってしまいます。 B1に0が入力されていると、以下のようなメッセージが表示されて止まってしまいます。 このようなエラーで止めないようにする方法について以下に書きます。 On Error Goto 行ラベル topへ エラーが発生したら[行ラベル]へ進めて処理します。 なお、エラー処理のための行き先[行ラベル]の前には Exit Sub を入れ、エラーがないときはエラー処理