Excel VBA質問箱 IV

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

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


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

48228 / 76736

←次へ　｜　前へ→


	【33444】Re:コンボボックスの内容を選択させたい！

Jaka - 06/1/12(木) 10:20 -


	引用なし

	パスワード

絞込みじゃないのか・・・。
シートとセルアドレスは変えてください。

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

0 hits

▼

【33393】コンボボックスの内容を選択させたい！ りょう 06/1/10(火) 15:26