エラ処理

On Error GoToのエラー処理についてご教授ください
下記のプロシージャーでエラー処理を組み込んだとしますと
文字を入れるとエラーになるとおもいますが、仮に数字を入れてエラー処理が進むことはないですか？
もし進むとセルに値が入るように設定していると
知らず知らず進むのがこわいです、そんな動きがないでしょうか？ VBAのテスト時にきっちりテストをしていると
手動でコードを変更しないかぎり、誤動作しないでしょうか

後、On Error Resume Next 、On Error GoTo 0
エラー処理などもありますが
一般的によく使うエラー処理のコードはどれでしょうか？

Sub test()
Dim x
On Error GoTo ErrorHandler
x = Range("A1").Value / Range("B1").Value
Range("c1").Value = x
MsgBox "計算が終わりました"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しましたので終了します"
End Sub

以上基本的なところですが宜しくご教授ください。

行動規範の内容に同意します

回答2件

ベストアンサー

仮に数字を入れてエラー処理が進むことはないですか

数値を0で割るとエラーになりますので、B1セルに0を入れると、エラー処理になります。

もし進むとセルに値が入るように設定していると

知らず知らず進むのがこわいです、そんな動きがないでしょうか？

これはちょっと意味がつかめなかったのですが、「エラー処理されずに進むと」という意味ですか。
エラーはOn Error GoToでトラップされるので、文字等をいれてエラーにならずに進むことは無いはずです。

一般的によく使うエラー処理のコードはどれでしょうか？

ケースバイケースなので、どれというわけではありません。
On Error Resume Nextはエラーを無視して次の行を実行するので、エラー発生が想定できて、かつ無視できる場所にピンポイントで使います。想定個所を抜ける際は、On Error GoTo 0でエラートラップを外しておきます。

提示いただいたケースでしたら、エラートラップでやるよりも、コードで対処してしまいますね。

lang
1Sub test()
2    If IsNumeric(Range("A1").Value) And _
3        IsNumeric(Range("B1").Value) And _
4        Range("b1").Value <> 0 Then
5            Dim x
6            x = Range("A1").Value / Range("B1").Value
7            Range("c1").Value = x
8            MsgBox "計算が終わりました"
9    Else
10        MsgBox "エラーが発生しましたので終了します"
11    End If
12End Sub