On Error Resume Next は、途中で解除することはできないのでしょうか?

一度書いてしまうと、想定外のところでエラーが起こるのを防げなかったりして不便です。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2009/06/28 11:54:02
  • 終了:2009/06/28 13:04:58

回答(2件)

id:zifree No.1

zifree回答回数175ベストアンサー獲得回数62009/06/28 12:25:18

ポイント35pt

VB6ですよね?

解除したい所にOn Error Goto 0を入れれば解除できます

http://www.atmarkit.co.jp/fdotnet/vb6tonet/vb6tonet14/vb6tonet14...

id:kaiketsu

うお、そういうものをつかうのですね。

2009/06/28 13:04:52
id:MotherGoose No.2

MotherGoose回答回数16ベストアンサー獲得回数02009/06/28 12:48:56

ポイント35pt

VB(VBA)?でしょうか?環境がわかりませんが

On Error GoToでエラー処理を再設定できませんか?

【例】

Sub HOGE()

Dim x As Long

On Error Resume Next

'0除算でエラーが発生するが処理継続

x = 1 / 0

On Error GoTo ERR_END

'0除算でエラーが発生し、ERR_ENDに飛ぶ

x = 1 / 0

'このメッセージ出力は行われない

MsgBox "1"

Exit Sub

ERR_END:

'エラー処理

'このメッセージが出力される

MsgBox "2"

End Sub


単にOn Error Resume Next を解除したいだけでしたら

On Error Goto 0で無効にできると思います。


http://www.red.oit-net.jp/tatsuya/vb/Err.htm

コメントはまだありません

この質問への反応(ブックマークコメント)

トラックバック

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません