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

解決

Sinya 2005-05-26 23:44:24 No: 90093

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

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

m 2005-05-27 00:22:11 No: 90094

Sinya 2005-05-27 01:00:03 No: 90095

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

魔界の仮面弁士 2005-05-27 01:00:58 No: 90096

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

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

Sinya 2005-05-27 01:09:15 No: 90097

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