errorトラップについて (ID:118395)

名前

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

本文 まさか・・・。と思い自分の環境で試してみましたが、 落ちませんでした？ Private Sub Form_Load() Dim aaa As String On Error Resume Next For i = 1 To CInt(aaa) MsgBox "For文" Next MsgBox Err.Description On Error GoTo 0 MsgBox Err.Description End Sub もう少し処理の中身を書いてもらえるとわかるかも