回答編集履歴
1
コードの修正
test
CHANGED
|
@@ -52,8 +52,6 @@
|
|
|
52
52
|
|
|
53
53
|
Worksheets("存在しないシート").Select
|
|
54
54
|
|
|
55
|
-
e = Err.Number
|
|
56
|
-
|
|
57
55
|
On Error GoTo 0
|
|
58
56
|
|
|
59
57
|
|
|
@@ -61,6 +59,10 @@
|
|
|
61
59
|
If e = 0 Then
|
|
62
60
|
|
|
63
61
|
MsgBox "エラーなくここまで来たので、最後に終了処理に入ります。"
|
|
62
|
+
|
|
63
|
+
Else
|
|
64
|
+
|
|
65
|
+
MsgBox "e002へ飛びました。"
|
|
64
66
|
|
|
65
67
|
End If
|
|
66
68
|
|
|
@@ -90,6 +92,8 @@
|
|
|
90
92
|
|
|
91
93
|
MsgBox "ここから終了処理に飛びます"
|
|
92
94
|
|
|
95
|
+
e = Err.Number
|
|
96
|
+
|
|
93
97
|
Resume Next
|
|
94
98
|
|
|
95
99
|
End Sub
|