On Error Resume Nextを複数のプロシージャーで使うことは不可能ですか？

質問

Module1に
-------------------------------------------
Option Compare Database
Option Explicit
Sub マクロ1()

End Sub
Sub マクロ2()

End Sub
-------------------------------------------
があるのですが
-------------------------------------------
Option Compare Database
Option Explicit
Sub マクロ1()
On Error Resume Next
End Sub
Sub マクロ2()
On Error Resume Next
End Sub
-------------------------------------------
ではなく
-------------------------------------------
On Error Resume Next
Option Compare Database
Option Explicit
Sub マクロ1()

End Sub
Sub マクロ2()

End Sub
-------------------------------------------
これはできないのでしょうか？
エラーになります。

dimもつけても駄目でした。
ひとつづつやっていくしかないのでしょうか？

回答No.1

merlionXX · ベストアンサー

エラーをスキップするのではなく単にエラーを出さないだけでいいなら

Sub test01()
On Error Resume Next
Call マクロ1
Call マクロ2
End Sub

Sub マクロ1()
x = 1 / 0 'エラー発生
MsgBox "マクロ1"
End Sub

Sub マクロ2()
y = 1 / 0 'エラー発生
MsgBox "マクロ2"
End Sub

で出来ますが、こうするとそれぞれのマクロはエラー発生時点で止まってしまいそれぞれのMsgboxがでなくなってしまいます。
やはり個々のプロシージャ別に入れる必要があるようですね。

お礼

なるほど。ありがとうございます。