エラーメッセージを出力する

2019年6月17日2021年8月22日

ShowErrorMessage関数

エラーメッセージを出力する関数。

'==================================================
' <summary>
' エラーメッセージを出力する
' </summary>
' <param name="methodName">メソッド名</param>
'==================================================
Public Sub ShowErrorMessage(methodName As String)

    MsgBox "エラーメソッド：" & methodName & vbCrLf & _
            "エラー番号：" & Err.Number & vbCrLf & _
            "エラー内容：" & Err.Description

End Sub

実行方法

'==================================================
' <summary>
' ShowErrorMessage関数のテスト
' </summary>
'==================================================
Sub TestShowErrorMessage()

    Dim result As Double

    On Error GoTo Catch

    ' エラー発生処理
    result = 1 / 0

    Exit Sub

Catch:
    Call ShowErrorMessage("TestShowErrorMessage")

End Sub

実行結果