回答編集履歴
1
コードの修正
answer
CHANGED
|
@@ -25,11 +25,12 @@
|
|
|
25
25
|
'★ここを On Error Resume Nextではなく、 On Error GoTo e002 にするとなぜか「自分の予想」どおりの動きができる。
|
|
26
26
|
On Error GoTo e002
|
|
27
27
|
Worksheets("存在しないシート").Select
|
|
28
|
-
e = Err.Number
|
|
29
28
|
On Error GoTo 0
|
|
30
29
|
|
|
31
30
|
If e = 0 Then
|
|
32
31
|
MsgBox "エラーなくここまで来たので、最後に終了処理に入ります。"
|
|
32
|
+
Else
|
|
33
|
+
MsgBox "e002へ飛びました。"
|
|
33
34
|
End If
|
|
34
35
|
|
|
35
36
|
exit_handle:
|
|
@@ -44,6 +45,7 @@
|
|
|
44
45
|
e002:
|
|
45
46
|
MsgBox "エラー処理（e002ラベル）に飛びました"
|
|
46
47
|
MsgBox "ここから終了処理に飛びます"
|
|
48
|
+
e = Err.Number
|
|
47
49
|
Resume Next
|
|
48
50
|
End Sub
|
|
49
51
|
```
|