Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

65705 / 76807

←次へ　｜　前へ→


	【15675】エラー回避

jyou - 04/7/2(金) 10:43 -


	引用なし

	パスワード

フォームのComboBoxで選択肢に無い値を入力しようとしたときに、
"プロパティの値が不正です"という表示をする設定をしているのですが、
ComboBox1と4の場合「アプリケーション定義またはオブジェクト定義のエラー」
が出てきてしまいます。
選択肢は最初に設定してあるのではなく、"LIST"というシートから選んできており、ComboBox2は1,ComboBox5は4 の値によって変化するようになっています。
以下がソースなのですが、IF文をどのように変えたらいいでしょうか？
わかりにくい説明で申し訳ありません。

Private Sub ComboBox1_Change()
　　For i = 2 To Worksheets(6).Range("b2").End(xlDown).Row
　　　　　If ComboBox1.Value = Worksheets(6).Cells(i, 2).Value Then
　　　　　c = i
　　　　　Exit For
　　　　　End If
　　Next i
　　For j = c To Worksheets(6).Range("b2").End(xlDown).Row + 1
　　　　　If ComboBox1.Value <> Worksheets(6).Cells(j, 2).Value Then
　　　　　d = j - 1
　　　　　Exit For
　　　　　End If
　　Next j
　　ComboBox2.RowSource = "LIST!c" & CStr(c) & ":c" & CStr(d)
End Sub

Private Sub ComboBox4_Change()
　　For i = 2 To Worksheets(6).Range("h2").End(xlDown).Row
　　　　　If ComboBox4.Value = Worksheets(6).Cells(i, 8).Value Then
　　　　　c = i
　　　　　Exit For
　　　　　End If
　　Next i
　　For j = c To Worksheets(6).Range("h2").End(xlDown).Row + 1
　　　　　If ComboBox4.Value <> Worksheets(6).Cells(j, 8).Value Then
　　　　　d = j - 1
　　　　　Exit For
　　　　　End If
　　Next j
　　ComboBox5.RowSource = "LIST!I" & CStr(c) & ":I" & CStr(d)
End Sub

2 hits

▼

【15675】エラー回避 jyou 04/7/2(金) 10:43

≪