Excel VBA質問箱 IV

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

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


65636 / 76738 ←次へ | 前へ→

【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
0 hits

【15675】エラー回避 jyou 04/7/2(金) 10:43 質問
【15676】Re:エラー回避 Asaki 04/7/2(金) 10:52 回答
【15684】Re:エラー回避 jyou 04/7/2(金) 11:51 お礼

65636 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free