VBA エラー処理

Question

追記：　伝え忘れていました
どこでエラーが起こるかは分からない前提です
######やりたい処理
VBAでエラーが発生した場合、何らかの処理をします。
そして発生した場所からまた処理を再開して、最後に何回エラーが発生したか回数を表示するプログラムを作成したい。

######課題

以下のようなコードを書いています
処理1でエラーが発生し、Errorプロシージャに飛びます
Erroプロシージャの処理が終わった場合、処理1の後から再開して、また処理2でエラーが発生し、再度Errorへ移動したいです。
1度Errorプロシージャが終われば、Call Errorから再開するので処理が終わってしまいます。
調べてみるとエラーが発生した行を特定する方法はみつけましたが、その行に飛ぶ方法が分かりません
よろしくお願いします

dim a
Sub test 
a=0
On Error GoTo MyError

処理1 'エラー発生

処理2 'エラー発生

Exit sub

MyError:
  Call Error

End Sub


Private sub Error
 エラー時の処理
a=a+1 '呼び出された回数をカウント
End Sub

Comments

[tosi]

参考です。
https://teratail.com/questions/288560
処理機能単位に関数を分けて制御すると見易くなります。

Answer 1

どこでエラーが起きるかわからないということをなかなか想定できないので、
実例を示された方が、エラー回避の方法を勉強できるのでは？
回数を数えることに意味があるかもよくわかりませんし＾＾；

Sub test()
    Dim r As Range
    Dim v
    Dim a As Long
    
    Set r = Range("A1:A20")
    r.Value = "テスト"
    
    On Error GoTo ErrHandler
    
    With WorksheetFunction
        v = .Match("あ", r, 0)
        v = .VLookup("i", r, 2, 0)
    End With
    Set r = r.SpecialCells(xlCellTypeBlanks)
    
    MsgBox a & "回"
    Exit Sub
    
ErrHandler:
    a = a + 1
    Resume Next
End Sub

Answer 2

MyErrorの最後で、Resume next でエラーが起こった次の行に復帰できます。

Dim a As Integer

Sub test()
a = 0
On Error GoTo MyError

'処理1 'エラー発生
Err.Raise 100 '擬似的にエラーを発生

'処理2 'エラー発生
Err.Raise 200

Exit Sub

MyError:
    Call Error
    Resume Next
End Sub

Private Sub Error()
    a = a + 1 '呼び出された回数をカウント
End Sub

Answer 3

いろいろツッコミたいところはありますが、ポイントだけ。

On Error Resume Next

’処理１をここに書く

If Err.Number <> 0 Then
    call MyError
    Err.Clear
End If

’処理２をここに書く

If Err.Number <> 0 Then
    call MyError
    Err.Clear
End If

On Error Goto 0 

ちなみに今のコードでMyErrorを2回呼んでもaは2にならないと思いますが
そこも見直してください。

Comments

[yakumo02]

回答ありがとうございます。
すみません、
伝え忘れたことを追記しました。

[kay-ws]

IF Error.Number <> 0 Then

これは、エラーが発生しなかった場合には
Error.Numberが0なのを利用しています。

[kay-ws]

momon-gaさんの回答のほうがスマートですね。
私の回答のほうでも　test プロシージャの前にDim a As Integerで目的は達せられると思います。