Excel VBA質問箱 IV

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

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


8411 / 13644 ツリー ←次へ | 前へ→

【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

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

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

【33395】Re:コンボボックスの内容を選択させたい!
回答  Statis  - 06/1/10(火) 15:40 -

引用なし
パスワード
   こんにちは

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

チャックボックス1も2も同じ値ですか?


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

チェックボックスは花の品種を表示させるのと木の品種を表示させるのを判別するために利用したいので、チャックボックス1=花の品種、チェックボックス2=木の品種という感じなんです。
両方の品種を入れるとコンボボックス内の量が多すぎて、選択しにくいかと思いまして、チェックボックスの選択に応じてコンボボックスの表示内容を変えたいんです。できるでしょうか?

【33397】Re:コンボボックスの内容を選択させたい!
回答  Statis  - 06/1/10(火) 16:42 -

引用なし
パスワード
   ▼りょう さん:
>チェックボックスは花の品種を表示させるのと木の品種を表示させるのを判別するために利用したいので、チャックボックス1=花の品種、チェックボックス2=木の品種という感じなんです。
>両方の品種を入れるとコンボボックス内の量が多すぎて、選択しにくいかと思いまして、チェックボックスの選択に応じてコンボボックスの表示内容を変えたいんです。できるでしょうか?

後は、花の品種のセルの位置と木の品種のセルの位置に変更して下さい。
「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さん:
えっと、説明の通りやってできたのですが、また問題が!!肝心なこと書くの忘れてました(^-^;)
コンボボックスは3つあって、コンボボックス1で選択したものはworksheets("作成").Range("D15")、コンボボックス2で選択させたものはRange("D16")、コンボボックス3で選択させたものはRange("D17")にそれぞれ選択して表示させたいんです。さらにコンボボックス1.2.3は最初に説明したように同じ内容にしたいんです。
こういう場合、コンボボックスではない方がいいのでしょうか?

Jakaさん:
私ちょっと初心者すぎて、sub絞込み2()の内容が理解できなかったんです。。
シートに品種を書いておいて、フォームのモジュールでリンクさせているのでしょうか?

【33440】Re:コンボボックスの内容を選択させたい!
質問  Statis  - 06/1/12(木) 9:04 -

引用なし
パスワード
   こんにちは
>えっと、説明の通りやってできたのですが
同じ事をコンボボックス2,3に行ってください。

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

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さんこんにちは
何度も質問に答えていただきありがとうございましたあ。。
さっそくとりかかってみます!

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