ループの中で何度もエラー処理をしたい場合

質問

サンプルコードを掲載します。
実際はセルの文字を取得するのでこのコードとは違いますが、形は同じです。

Sub test()
Dim i As Long

On Error GoTo Err1

For i = 0 To 5

i = "a"
Err1:
Debug.Print i "は、エラーになりました"
Next

End Sub

このようなコードの場合、
i=0の時に、1回目のエラーになって
「0は、エラーになりました」が返りますが、
その後、i=1になった時に
i = "a"を実行すると
On Error GoTo Err1が無視され、エラーになってしまいます。

ループの中でエラーが何度発生してもエラー処理をする方法はありますか？
On Error Resume Next以外の方法で教えてください。

回答No.1

keithin · ベストアンサー

基本中の基本ですが、Resumeしない限り、次のエラー処理を起こす方法はありません。

sub macro1()
　dim i as long, j as long
　on error goto errhandle

　for i = 0 to 5
　j = "a"
　next i
　exit sub

errhandle:
　msgbox "ERR " & i
　resume next
end sub

お礼

resume next
がないダメなのですね。

回答No.2

asciiz

on error goto の行き先が、ループの中に飛び込んでいるというのが、そもそもの間違いです。

on error goto とは、「goto」という単語が使われていますけど、実際には
「エラー処理用の『サブルーチン』を『呼ぶ(gosubのように)』」ように使うものです。

on error goto により、エラー検出したなら全処理を停止して終了する、というエラー処理ならば、
単純なラベルにしていきなりジャンプしてしまうのでも構いません。
でも、今回は違います。

そこでまず、on error goto により、「エラーが起こった時に呼ばれるサブルーチン」を定義します。
そして、エラーが起こると、そこに if も gosub も書かれていなくても、エラー処理サブルーチンが呼ばれます。

独立したエラー処理用のサブルーチンの中でエラー処理を行い、エラー処理が済んだら、
resume next により、エラーの起こった位置(元の位置)の次の命令から再開できます。

そのように書くのが本来の形であり、ANo.1さんの書かれたとおりとなります。

お礼

１さんの回答のように
ループの外にエラー処理を入れるべきなのですね。