VBA エラーした後も処理を続けて、最後にエラーしたことを通知したい

Question

自分自身がマクロを組んで、第三者がマクロを実行することがあるかと思いますが、エラーが起きた時にそこでマクロを停止せず、最後に「エラーがありました。」「手動で入力して下さい。」などとメッセージする方法はあるのでしょうか。

エラーが起きた時にマクロを停止しないというのは、on error resume next を使えば、問題ないのかと思いますが、最後にエラーがあったことをメッセージする方法が分からなく、お伺いしました。
繰り返し文などでなければ、on error goto を使う方法もあるかと思いましたが、for文などで使っていた場合、for文の中に on error goto のラベルを配置するとエラーするたびに同じメッセージが出てきてしまうかと思いますし、かといって、for文の外にラベルを配置すれば、エラーが出たと同時にfor文を抜けることになってしまい、残ったforの処理ができないかと思います。

そのため、エラーが出たらそのエラーは一旦無視されて処理が続き、最後にメッセージする方法があるようでしたら
教えて頂けますと幸いです。
これといったサンプルコードが無くて申し訳ございませんが、
よろしくお願いいたします

Comments

[退会済みユーザー]

次回から「こんなコード書いたけどうまく動かない」を提示していただくと「ここ間違ってるよ」って指摘をもらいやすいですよ。

[tttkkk]

そうですよね…。
重要な部分を記さず、申し訳ございませんでした。
今回は頭の中でふと思ったことをどうしてもそのままにできなくて、調べてもすぐに分からず、こちらで聞いてしまいました。

次回からはしっかりとサンプルコードも載せられるまで考えてから、お伺いしたいと思います。

Answer 1

Errオブジェクトを利用します。
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/err-object

エラーが発生した場合、Err.Numberは0以外になり、
エラー内容がErrオブジェクトに格納されます。

したがって、「On Error Resume Next」でエラーを無視して処理を続けつつ、
処理が終わった後、プロシージャの最後で、Err.Numberが0以外かどうかを判定し、
0以外の場合はErrオブジェクトの内容をメッセージボックス等で表示するといったやり方になります。

Sub Test()
  On Error Resume Next
  （エラーが発生するかもしれない処理）
  ~
  ~


  If Err.Number <> 0 Then
    MsgBox Err.Source & " : " & Err.Description
    Err.Clear
  End If
End Sub

Answer 2

こんな感じでどうでしょう。

Public Sub ResumeSample()
    Dim i               As Integer
    Dim ErrorMessage    As String
    
    For i = 0 To 9
        On Error Resume Next
        '何らかの処理
        If Err.Number <> 0 Then
            ErrorMessage = ErrorMessage & "Err.Number=[" & Err.Number & "],Err.Description=[" & Err.Description & "]" & vbCrLf
            Err.Clear
        End If
    Next
    MsgBox ErrorMessage
End Sub

Comments

[tttkkk]

ありがとうございます。
こちらのコードを参考させていただきましたところ、
無事私が意図していることができました。

おひとつこのコードでお伺いしたいのですが、 Err.Clear を記載していますが、それを入れる意味はどのような理由なのでしょうか。
当たり前のようなことをお伺いしていたら、申し訳ございませんが、教えて頂けないでしょうか。

[退会済みユーザー]

Clear しないと Err の内容が保持されるため、次のデータにエラーがなくても If Err.Number <> 0 Then に引っかかってしまいます。

[tttkkk]

返信が遅れてしまいまして、すいません。
言われてみてみればあっとなって納得できました。
ありがとうございます。

Answer 3

on error resume nextをつかって、エラーが起きたときになんかの変数に起きたことをセットするようにしとけば、最後にその変数を見ればエラーが起きたことを判定できます