excelで左のセル項目にあわせた複数選択可能なプルダウンボックスを表

Question

excelで左のセル項目にあわせた複数選択可能なプルダウンボックスを表示させたい。

添付のようなイメージのものを作成したいと考えています。
B列はプルダウンで選べる様になっており、B列の内容により、C列の選択肢を変更
したいのです。
ちなみに、今C列はリストボックスになっていますが、チェックボックスなど、
リストから複数選べるようになれば問題ありません。

このようなものは、VBAなどを組まないとできないのでしょうか。

よろしくお願いいたします。

suzusan7 · Accepted Answer

値を利用することで考えていました。
リストボックスは選んだ表示だけで良くて、
あとはB列のリストボックスの変更に合わせて
リストボックスの項目が変われば良いということですね。

すると、一例としてはこんな感じでしょうか？
セルB2かセルB3の値変更があった場合、
セルの内容（例では魚屋、果物屋、八百屋）に応じて、
リストボックスの内容を変更するマクロです。
設定は下記の通りとしています。
・セルB2、B3はセルE7～E9のリスト選択
・セルB2またはB3の内容に合わせてセルE14～セルG16の
　データをリストに表示する
・２行目にあるリストボックスを“ListBox1”
　３行目にあるリストボックスを“ListBox2”としています。
・リストボックスのListFillRangeは空白にしておく。

以下をVBAで操作を行うシートに貼りつけてみてください。
Excel2002ですが、セルB2を変更すると、リストボックス１の表示内容が
セルB3を変更すると、リストボックス２の表示内容が変わります。
たた、表示内容が変わったときは何も選択していない状態になります。
シートの値を参照していますが、VBA内での記載でもできると思います。

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim MyRng As Range, isect As Range, i As Long

'セル変更箇所の確認
    Set isect = Application.Intersect(Target, Range("B2:B3"))
    If isect Is Nothing Then
        Exit Sub
    End If
'リストボックスの範囲設定
        Select Case Target.Value
            Case "魚屋"
                Set MyRng = ActiveSheet.Range("F14:F16")
            Case "八百屋"
                Set MyRng = ActiveSheet.Range("E14:E16")
            Case "果物屋"
                Set MyRng = ActiveSheet.Range("G14:G16")
        End Select
'リストボックスの設定
    If isect.Address = Range("B2").Address Then
        ListBox1.List = MyRng.Value
    ElseIf isect.Address = Range("B3").Address Then
        ListBox2.List = MyRng.Value
    End If
End Sub

ASIMOV · Answer

＞10～20個ほどの量となるため、なるべく一行で収めたかったのです

一行であれば、列は複数でも良いのでしょうか？

C列から右に商品名を並べておき、
セル毎にチェックBOXを貼り付けておく．．とか
商品名をダブルクリックすると色が変わるマクロを設定しておく．．とか

suzusan7 · Answer

こんにちわぁ

入力規制では複数選択ができないので、別の方法を。
ちなみに、動作確認はExcel 2002です。

ツールバーの「コントロールツールボックス」から
リストボックスを押してください。シートにリストボックスが
表示されます。

もし「コントロールツールボックス」がわからなければ、
ツールバー付近で右クリックを押すと「コントロールツールボックス」を
表示させることができます。

「コントロールツールボックス」の「デザインモード」をクリックし、
リストボックスを右クリックすると「プロパティ」という項目が
見つかりますので、これを選んでください。
なお、リストボックスの大きさ等、変更を行う場合は
デザインモードにする必要があります。

プロパティの中に
「ListFillRange」という項目を探してここに、リストボックスに表示したい
文字が入力されているセルを記載してください
例：A1:A8

複数選択への対応はプロパティの中に
「MultiSelect」という項目を探して、
「1-fmMultiSelectmulti」か「2-fmMultiSelectExtended」
に設定してください。
1と2の違いは、1はシングルクリックで選択・キャンセルを行い、
2は複数選択をする場合はshiftキーかctrlキーを使います。

複数選択をした場合はプロパティのLinkedCellで値を返すことができません。
ですので、VBAになります。
先ほどの手順でプロパティの代わりに「コードの表示」を選択します。
そして以下のコードに書き換えてみてください。

Private Sub ListBox1_Change()
    Dim i As Long, j As Long
    Const trg As String = "D1" '選択値を書き込む最初のセルアドレス
    With ListBox1
        ActiveSheet.Range(trg).Resize(.ListCount).ClearContents
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                ActiveSheet.Range(trg).Offset(j, 0).Value = .List(i)
                j = j + 1
            End If
        Next i
    End With
End Sub

必要な変更箇所は
ListBox1_Click()　→　ListBox_Change()

D1から書き始めることにしていますので、必要に応じて変更
リストボックスの個数分は値をクリアしますので
必要な分だけ、書き出す範囲を確保してください。

アクティブシートでの作業として書いていますので、
違うシートに記載するのであれば、変更が必要です。

おまけですが、リストボックスで選択をチェックボックス形式にしたい場合は
プロパティの「ListStyle」を「1-fmListStyleoption」に変更してみてください。

ASIMOV · Answer

＞各店舗最大で8こ選ぶことができるようにしたいです。
＞セルの行数を各店１行でなんとかしたいのですが

これについて、もっと詳しい説明が必要です
選んだ後、８個商品をどうするのか？．．
選んだ結果のイメージを示してください

tom04 · Answer

こんにちは！
B列の入力規則でリストはちゃんと表示出来ているとしての方法です。
当方使用のEXCEL2003の場合ですが、

まず、「八百屋」のリスト候補にしたい品目（りんご・ばなな・もも・・・等々）を範囲指定
→　メニュー　→　挿入　→　名前　→　名前定義　で「八百屋」と名前定義します。
同様に「さかなや」のリスト候補にしたいものを範囲指定　→　「さかなや」　と名前定義

他にも業種がある場合は同様にすべて名前定義しておきます。
（範囲指定した後に、名前ボックスに直接入力しても構いません）

そして、C列のリスト表示させたいセル（C2以降）を範囲指定し、
メニュー　→　データ　→　入力規則　→　リスト　から
「元の値」の欄に
=INDIRECT(B2)　として完了です。

これでB列でリスト表示させたものがC列のリスト表示の候補になります。

以上、長々と書きましたが、参考になれば幸いです。m(__)m

myRange · Answer

も少し補足が必要でしょう。

例えば
各店に対して選択できる商品の最大数はいくつでしょうか。
これにより、各店のセルの高さが変ってきますが、それは考慮されてますか？
八百屋では３つ選択し、さかなやでは、１０選択した場合など。

もし、各店の最大商品選択数が、”同じ”なら、以下の方法もありかと。
各店とも商品選択最大数が”５つ”だとした場合

各店ごとに、５行ずつ使う
八百屋は、　２～６行
さかなやは、７～１１行
　　以下同様

こうすると、商品のセルは、
　Ｂ２～Ｂ６
　Ｂ７～Ｂ１１
となるので、
それぞれに、入力規則を設定すると
各店ごとに、５つの商品を選択できることになる

以上です。

ASIMOV · Answer

http://oshiete.coneco.net/qa1892891.html

過去に同じ質問が何度も有ります

参考
http://officetanaka.net/excel/function/tips/tips05.htm

このサイトの中ほどに有る、「[元の値]を動的に変化させる」という項目にも詳しく解説されています

excelで左のセル項目にあわせた複数選択可能なプルダウンボックスを表

値を利用することで考えていました。

＞10～20個ほどの量となるため、なるべく一行で収めたかったのです

こんにちわぁ

この回答への補足

＞各店舗最大で8こ選ぶことができるようにしたいです。

この回答への補足

こんにちは！

この回答への補足

も少し補足が必要でしょう。

この回答への補足

この回答への補足

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング