- 704 名前：デフォルトの名無しさん mailto:sage [2022/01/26(水) 20:33:27.76 ID:Rwt/NS3J0.net]
- エラーとしてまとめるってのを昔見たことあるけど、見づらいかなぁ
Sub Func()
On Error GoTo err
flg = True
If flg Then
err.Raise Number:=513, Description:="内容"
End If
' Call 長〜い処理1をファンクションにしたもの
' Call 長〜い処理2をファンクションにしたもの
' Call 長〜い処理3をファンクションにしたもの
Exit Sub
'エラー処理
err:
MsgBox err.Number & vbCrLf & err.Description
End Sub
