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

名前

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

本文 みなさん、ありがとうございます。 > 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 gflg = True →葉月さんへ、すみません。 > End If Text(ix).textには数値のみしか入力できないようにチェックをしています。 ソース見づらくてすみません・・・。 setFocusを省いたら動作しました。