On Error Resume Nextが無視されてしまう

解決

---

on error resume next について教えてください

Sub test()
         
    On Error GoTo errtrap
    
    MsgBox 0 / 0 '<--- ①
    
    Exit Sub
    
errtrap:
    
    On Error Resume Next
    
    MsgBox 0 / 0 '<--- ②
         
End Sub

①のエラーでerrtrapへ飛んで
On Error Resume Next  後
②のエラーが起きても無視される予定でしたが
エラーが発生します。
何故でしょうか？
VB6.0 でも  VBA でも同じ現象になります

ちなみに、
Sub test()
         
    On Error GoTo errtrap
    
    MsgBox 0 / 0
    
    Exit Sub
    
errtrap:
    
    Call test2
         
End Sub

private Sub test2()
    
    On Error Resume Next
    
    MsgBox 0 / 0

End Sub

当たり前ですけど
これですと上手く動きます。

編集 削除

---

http://nmag.softbankpub.co.jp/home.nsf/content/rnh-apri-15-1?OpenDocument

編集 削除

---

ｍさん  有難うございました

編集 削除

---

On Error GoTo 後、Resumeされていない状態(エラートラップ中)では、
別のエラーを処理できません。

ヘルプの、
 [Visual Basic ドキュメント]
  └[Visual Basic の使用方法]
    └[Visual Basic を使って出来ること]
      └[コードのデバッグおよびエラー処理]
あたりを良く読んでおきましょう。

編集 削除

---

魔界の仮面弁士さん、有難うございました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。