|
フォームの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
|
|