|
絞込みじゃないのか・・・。
シートとセルアドレスは変えてください。
Private Sub CheckBox1_Click()
aa = Array("桜", "うば桜", "黄桜ドン", "蓮華", "たんぽぽ", "赤青黄色")
If CheckBox1.Value Then
ComboBox1.List = aa
Else
ComboBox1.Clear
End If
End Sub
Private Sub CheckBox2_Click()
bb = Array("桜", "うば桜", "黄桜ドン", "杉", "ウド", "樫")
If CheckBox2.Value Then
ComboBox2.List = bb
Else
ComboBox2.Clear
End If
End Sub
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex < 0 Then Exit Sub
Sheets("Sheet1").Range("A1").Value = ComboBox1.List(ComboBox1.ListIndex)
End Sub
Private Sub ComboBox2_Change()
If ComboBox2.ListIndex < 0 Then Exit Sub
Sheets("Sheet1").Range("B1").Value = ComboBox2.List(ComboBox2.ListIndex)
End Su
|
|