コンボボックスについて

質問

2007です。いつもお世話になります。
フォーム上にチェックボックスがあります。
チェックが入った時点で同じフォーム上のコンボボックスのリストから特定のものを選択したいです。
しかし、チェックか゛入っていなければそのコンボボックスのリストから特定のものを除いたものを選択するようにする・・出来るでしょうか？
チェックありならばコンボボックスの値集合ソース1.2.3の内の2だけを
チェックなしならばコンボボックスの値集合ソース1.2.3の内の1.3だけしか選択出来ない
というイメージです。

分からないなりに
=IIf([チェック1]="true","1,"2" Or "3")
にしたら、リストから選択どころか、-1という数字が出てきてしまいました。

回答No.1

hallo-2007

考え方ですが
チェックボックスにチェックを入れたら
コンボボックスのリストをクリア（全てを削除）
リストに　２　を加える
チェックボックスにチェックを外したら
コンボボックスのリストをクリア（全てを削除）
リストに　１　と　３　を加える

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ComboBox1.Clear 'コンボボックス クリア
ComboBox1.AddItem "2"
Else
ComboBox1.Clear 'コンボボックス クリア
ComboBox1.AddItem "1"
ComboBox1.AddItem "3"
End If
End Sub
こんな感じです。
特定のもの以外を抽出する部分はご自分で考えてみてください。
ワークシート上で処理する方法もあります。