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

名前

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

本文 みなさん、ありがとうございます。 今朝からいろいろやってはいるのですが・・・。 まだ解決できません・・・。 昨日の葉月αさんの指摘により・・・。 コントロールのIndexはデフォルトはInt型なので 変数をIntに宣言し直してみました。 ねろさん、みなさんへ記述ミス等申し訳ありません。 Public Function KCheck() As Boolean Dim flg As Boolean 'フラグ Dim ix As Integer 'カウント gflg = False For ix = 1 To 8 If gflg = False And ix = 8 Then ⇒ここで入力チェックを行う（長いので省略）・・・ 入力チェックエラー時の処理↓ Text(1).SetFocus MsgBox "入力", vbOKOnly + vbInformation, App.Title KCheck = True Exit For End If If Text(ix).Text = "" Or Text(ix).Text = 0 Then Text(ix).SetFocus ←ここ MsgBox "入力", vbOKOnly + vbInformation, App.Title Text(ix).Text = "" KCheck = True Exit Function End If gflg = True End if Next 実はエラートラップは試していて・・・。 ←通過後に終了してしまいます。