実行時エラーを回避するには (ID:122714)

名前

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

本文 エラーの場所の特定のためにこういう事を試した方が良いかもしれません。 実行時エラー５はいろいろな発生要因が多岐にわたっていますから （非表示オブジェクトへのSetFocusとか、文字列処理関数で負の文字数を指定したとか、いろいろありますから） Public Function チェック() As Boolean On Error Goto ErrorHandler Dim stepCount As Integer For ix = 1 To 8 stepCount = 1 If Text1.text = "" then stepCount = 2 Text1(ix).SetFocus stepCount = 3 MsgBox "○○入力して下さい。", vbOKOnly + vbInformation, App.Title stepCount = 4 Text1(ix).Text = "" stepCount = 5 チェック = True Exit Function Next ・ ・ ErrorHandler: Msgbox "ErrPos:" & cstr(stepCount) & vbCrLf & _ "ErrDesc:" & Err.Description 適当なエラー処理 Exit Function