'***************************************************************************************************
'* 処理名 :TEST2
'* 機能 :テスト②
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2016年11月19日
'* 作成者 :井上 治
'* 更新日 :2019年12月30日
'* 更新者 :井上 治
'* 機能説明:エラー表記を独自にコントロールする例
'* 注意事項:
'***************************************************************************************************
Sub TEST2()
'-----------------------------------------------------------------------------------------------
Const cnsTitle As String = "TEST2"
Dim vrnINPUT As Variant ' 入力値WORK
Dim intNUM As Integer ' 転記先変数(整数)
Dim strMSG As String ' メッセージWORK
vrnINPUT = "a" ' 入力データ
On Error GoTo TEST2_ERR ' ←この行!
intNUM = vrnINPUT ' 整数型変数に転記(エラー発生)
GoTo TEST2_EXIT
'===================================================================================================
' エラー時の飛び先(行ラベル)
TEST2_ERR:
' エラーメッセージを編集
strMSG = "実行時エラー:" & Err.Number & " " & Err.Description & vbCr & _
"入力データは「" & vrnINPUT & "」です。"
' エラーメッセージを表示
MsgBox strMSG, vbCritical, cnsTitle
'===================================================================================================
' 終了
TEST2_EXIT:
On Error GoTo 0
End Sub