EXCEL VBA マクロ実行時のデバッグダイアログを回避。

マクロを実行すると、想定外のエラーが発生して、以下みたいなダイアログで止まることがあります。
その制御方法…というか、もう少しスマートにする方法です。

簡単で、「On Error]を使います。
例題は、エラー発生が
処理1の時、JPError01へジャンプ
処理2の時、JPError02へジャンプ
処理3の時、JPError03へジャンプ
です。

Err.Number　エラー番号
Err.Description　エラー内容

エラーが不明の時は、On Errorを外してから再度処理してください。

On Error GoTo JPError01
処理1

On Error GoTo JPError02
処理2

On Error GoTo JPError03
処理3

Exit Sub   

JPError01:
MsgBox (" ERROR01。確認して下さい。 " vbCrLf & "ERRNO:" & Err.Number & vbCrLf & "ERRMSG:" & Err.Description), vbCritical
JPError02:
MsgBox (" ERROR02。確認して下さい。 " vbCrLf & "ERRNO:" & Err.Number & vbCrLf & "ERRMSG:" & Err.Description), vbCritical
JPError03:
MsgBox (" ERROR03。確認して下さい。 " vbCrLf & "ERRNO:" & Err.Number & vbCrLf & "ERRMSG:" & Err.Description), vbCritical

'###

VBA（マクロ）

Posted by master