Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8413 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【33393】コンボボックスの内容を選択させたい！ りょう 06/1/10(火) 15:26 質問[未読]
【33395】Re:コンボボックスの内容を選択させたい！ Statis 06/1/10(火) 15:40 回答[未読]
【33396】Re:コンボボックスの内容を選択させたい！ りょう 06/1/10(火) 16:05 質問[未読]
【33397】Re:コンボボックスの内容を選択させたい！ Statis 06/1/10(火) 16:42 回答[未読]
【33398】Re:コンボボックスの内容を選択させたい！ Jaka 06/1/10(火) 17:06 発言[未読]
【33424】Re:コンボボックスの内容を選択させたい！ りょう 06/1/11(水) 17:31 質問[未読]
【33440】Re:コンボボックスの内容を選択させたい！ Statis 06/1/12(木) 9:04 質問[未読]
【33444】Re:コンボボックスの内容を選択させたい！ Jaka 06/1/12(木) 10:20 発言[未読]
【33470】Re:コンボボックスの内容を選択させたい！ りょう 06/1/12(木) 16:14 お礼[未読]
【33393】コンボボックスの内容を選択させたい！
質問  りょう  - 06/1/10(火) 15:26 -
引用なし
パスワード
   いつもお世話になっておりますm(_ _)m

今回はユーザーフォーム内でチェックボックス１、チェックボックス２を作り
チェックボックス１にチェックを入れた場合、コンボボックスに花の品種名表示。
チャックボックス２にチェックを入れた場合、同じコンボボックスに木の品種名が選択できるようにしたいのです。チェックボックスを使用することによってコンボボックス内の選択内容を変更することはできるのでしょうか？

チャックボックス１　→　コンボボックスに花の品種名の選択表示　→
worksheets("作成").Range("D15").Value
チェックボックス２　→　上記と同じコンボボックスに木の品種名の選択表示→
worksheets("作成").Range("D15").Value
【33395】Re:コンボボックスの内容を選択させたい！
回答  Statis  - 06/1/10(火) 15:40 -
引用なし
パスワード
   こんにちは

>チャックボックス１　→　コンボボックスに花の品種名の選択表示　→
>worksheets("作成").Range("D15").Value
>チェックボックス２　→　上記と同じコンボボックスに木の品種名の選択表示→
>worksheets("作成").Range("D15").Value

チャックボックス１も２も同じ値ですか？


Private Sub CheckBox1_Click()
Me.ComboBox1.Clear
If Me.CheckBox1 Then
　 Me.ComboBox1.AddItem Worksheets("作成").Range("D15").Value
End If
End Sub

Private Sub CheckBox2_Click()
Me.ComboBox1.Clear
If Me.CheckBox2 Then
　 Me.ComboBox1.AddItem Worksheets("作成").Range("D15").Value
End If
End Sub
【33396】Re:コンボボックスの内容を選択させたい！
質問  りょう  - 06/1/10(火) 16:05 -
引用なし
パスワード
   ▼Statis さん：
>>
>Private Sub CheckBox1_Click()
>Me.ComboBox1.Clear
>If Me.CheckBox1 Then
>　 Me.ComboBox1.AddItem Worksheets("作成").Range("D15").Value
>End If
>End Sub
>
>Private Sub CheckBox2_Click()
>Me.ComboBox1.Clear
>If Me.CheckBox2 Then
>　 Me.ComboBox1.AddItem Worksheets("作成").Range("D15").Value
>End If
>End Sub

チェックボックスは花の品種を表示させるのと木の品種を表示させるのを判別するために利用したいので、チャックボックス１＝花の品種、チェックボックス２＝木の品種という感じなんです。
両方の品種を入れるとコンボボックス内の量が多すぎて、選択しにくいかと思いまして、チェックボックスの選択に応じてコンボボックスの表示内容を変えたいんです。できるでしょうか？
【33397】Re:コンボボックスの内容を選択させたい！
回答  Statis  - 06/1/10(火) 16:42 -
引用なし
パスワード
   ▼りょう さん：
>チェックボックスは花の品種を表示させるのと木の品種を表示させるのを判別するために利用したいので、チャックボックス１＝花の品種、チェックボックス２＝木の品種という感じなんです。
>両方の品種を入れるとコンボボックス内の量が多すぎて、選択しにくいかと思いまして、チェックボックスの選択に応じてコンボボックスの表示内容を変えたいんです。できるでしょうか？

後は、花の品種のセルの位置と木の品種のセルの位置に変更して下さい。
「AddItem メソッド」の場合、品質件数が多いのであればループする必要があります。

セル範囲を指定するのであれば「RowSource プロパティ」を使うと良いと思います。
【33398】Re:コンボボックスの内容を選択させたい！
発言  Jaka  - 06/1/10(火) 17:06 -
引用なし
パスワード
   コンボとリストの違いはありますが、コード的にはほとんど同じです。

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=84;id=FAQ
【33424】Re:コンボボックスの内容を選択させたい！
質問  りょう  - 06/1/11(水) 17:31 -
引用なし
パスワード
   Statisさん：
えっと、説明の通りやってできたのですが、また問題が！！肝心なこと書くの忘れてました(^-^;)
コンボボックスは３つあって、コンボボックス１で選択したものはworksheets("作成").Range("D15")、コンボボックス２で選択させたものはRange("D16")、コンボボックス３で選択させたものはRange("D17")にそれぞれ選択して表示させたいんです。さらにコンボボックス１．２．３は最初に説明したように同じ内容にしたいんです。
こういう場合、コンボボックスではない方がいいのでしょうか？

Jakaさん：
私ちょっと初心者すぎて、sub絞込み2()の内容が理解できなかったんです。。
シートに品種を書いておいて、フォームのモジュールでリンクさせているのでしょうか？
【33440】Re:コンボボックスの内容を選択させたい！
質問  Statis  - 06/1/12(木) 9:04 -
引用なし
パスワード
   こんにちは
>えっと、説明の通りやってできたのですが
同じ事をコンボボックス２，３に行ってください。

セルに表示ですが。
各くコンボボックスのイベントに記載してください。

Private Sub ComboBox1_Change()
worksheets("作成").Range("D15").Value=ComboBox1.Text
end sub
【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
【33470】Re:コンボボックスの内容を選択させたい！
お礼  りょう  - 06/1/12(木) 16:14 -
引用なし
パスワード
   Jaka さんStatisさんこんにちは
何度も質問に答えていただきありがとうございましたあ。。
さっそくとりかかってみます！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8413 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free