質問
excelで左のセル項目にあわせた複数選択可能なプルダウンボックスを表
- 投稿日時:2010/01/22 10:59
excelで左のセル項目にあわせた複数選択可能なプルダウンボックスを表示させたい。
添付のようなイメージのものを作成したいと考えています。
B列はプルダウンで選べる様になっており、B列の内容により、C列の選択肢を変更
したいのです。
ちなみに、今C列はリストボックスになっていますが、チェックボックスなど、
リストから複数選べるようになれば問題ありません。
このようなものは、VBAなどを組まないとできないのでしょうか。
よろしくお願いいたします。
回答 (7件)
- 最新から表示
- 回答順に表示
- ベストアンサーのみ表示
No.7ベストアンサー20pt
- 回答日時:2010/01/26 01:42
値を利用することで考えていました。
リストボックスは選んだ表示だけで良くて、
あとはB列のリストボックスの変更に合わせて
リストボックスの項目が変われば良いということですね。
すると、一例としてはこんな感じでしょうか?
セルB2かセルB3の値変更があった場合、
セルの内容(例では魚屋、果物屋、八百屋)に応じて、
リストボックスの内容を変更するマクロです。
設定は下記の通りとしています。
・セルB2、B3はセルE7~E9のリスト選択
・セルB2またはB3の内容に合わせてセルE14~セルG16の
データをリストに表示する
・2行目にあるリストボックスを“ListBox1”
3行目にあるリストボックスを“ListBox2”としています。
・リストボックスのListFillRangeは空白にしておく。
以下をVBAで操作を行うシートに貼りつけてみてください。
Excel2002ですが、セルB2を変更すると、リストボックス1の表示内容が
セルB3を変更すると、リストボックス2の表示内容が変わります。
たた、表示内容が変わったときは何も選択していない状態になります。
シートの値を参照していますが、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
この回答へのお礼
いろいろと考えて頂きありがとうございます。
今回は、B列の項目により、入力させたいセルの色を変えて、
チェックボックスにチェックを入れるような形で、勧めようと
思います。
使用者から使いづらいという声があったら、改修をかけようと思いますので、
その際、またこちらでお世話になりましたら、よろしくお願いいたします。
No.6
- 回答日時:2010/01/25 21:27
>10~20個ほどの量となるため、なるべく一行で収めたかったのです
一行であれば、列は複数でも良いのでしょうか?
C列から右に商品名を並べておき、
セル毎にチェックBOXを貼り付けておく..とか
商品名をダブルクリックすると色が変わるマクロを設定しておく..とか
この回答へのお礼
ありがとうございます。
ご教示いただいた内容は私の方でも考えついた内容となります。
他に方法がありましたらご教示いただけると幸いです。
No.5
- 回答日時:2010/01/24 10:56
こんにちわぁ
入力規制では複数選択ができないので、別の方法を。
ちなみに、動作確認は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」に変更してみてください。
この回答への補足
こんにちは。ご回答いただきありがとうございます。
教えていただいたものですと、結果的にはセルを複数使ってしまうので、
私のやりたいことにはつながりませんでした。
また、B列の選択しにより、C列のリストボックスの内容を変化させたいのです。
以上、よろしくお願いいたします。。
- 質問者のみ
- この回答にお礼をつける
No.4
- 回答日時:2010/01/23 08:20
>各店舗最大で8こ選ぶことができるようにしたいです。
>セルの行数を各店1行でなんとかしたいのですが
これについて、もっと詳しい説明が必要です
選んだ後、8個商品をどうするのか?..
選んだ結果のイメージを示してください
この回答への補足
ご回答いただきありがとうございます。
実際使用する項目は商品名ではありません。
わかりやすくするために、上げておりました。
内容としては、依頼者に商品最大8個を選んだのち、
それを元に別の管理ツールに入力するためのメモみたいなものです。
依頼者が依頼してくる数は、店名や商品名の組み合わせにより、
10~20個ほどの量となるため、なるべく一行で収めたかったのです。
この説明でわかるでしょうか。
選んだ結果のイメージとしては、「選べていればいい」という状態になります。
そこからデータを加工して何かをするわけではありません。
よろしくお願いいたします。
- 質問者のみ
- この回答にお礼をつける
No.3
- 回答日時:2010/01/22 13:55
こんにちは!
B列の入力規則でリストはちゃんと表示出来ているとしての方法です。
当方使用のEXCEL2003の場合ですが、
まず、「八百屋」のリスト候補にしたい品目(りんご・ばなな・もも・・・等々)を範囲指定
→ メニュー → 挿入 → 名前 → 名前定義 で「八百屋」と名前定義します。
同様に「さかなや」のリスト候補にしたいものを範囲指定 → 「さかなや」 と名前定義
他にも業種がある場合は同様にすべて名前定義しておきます。
(範囲指定した後に、名前ボックスに直接入力しても構いません)
そして、C列のリスト表示させたいセル(C2以降)を範囲指定し、
メニュー → データ → 入力規則 → リスト から
「元の値」の欄に
=INDIRECT(B2) として完了です。
これでB列でリスト表示させたものがC列のリスト表示の候補になります。
以上、長々と書きましたが、参考になれば幸いです。m(__)m
この回答への補足
ご回答いただきありがとうございます。
上記方法では、1つしか選択することができず、
複数選択させるとなると、行を大幅に使ってしまいます。
1行で複数個を選択したいのです。
よろしくお願いいたします。
- 質問者のみ
- この回答にお礼をつける
No.2
- 回答日時:2010/01/22 13:50
も少し補足が必要でしょう。
例えば
各店に対して選択できる商品の最大数はいくつでしょうか。
これにより、各店のセルの高さが変ってきますが、それは考慮されてますか?
八百屋では3つ選択し、さかなやでは、10選択した場合など。
もし、各店の最大商品選択数が、”同じ”なら、以下の方法もありかと。
各店とも商品選択最大数が”5つ”だとした場合
各店ごとに、5行ずつ使う
八百屋は、 2~6行
さかなやは、7~11行
以下同様
こうすると、商品のセルは、
B2~B6
B7~B11
となるので、
それぞれに、入力規則を設定すると
各店ごとに、5つの商品を選択できることになる
以上です。
この回答への補足
回答いただきありがとうございます。
各店舗最大で8こ選ぶことができるようにしたいです。
イメージは3つしかないですが…
セルの行数を各店1行でなんとかしたいのですが、方法がないのかとおもい、
投稿しました。
よろしくお願いいたします。
- 質問者のみ
- この回答にお礼をつける
No.1
- 回答日時:2010/01/22 12:53
http://oshiete.coneco.net/qa1892891.html
過去に同じ質問が何度も有ります
参考
http://officetanaka.net/excel/function/tips/tips …
このサイトの中ほどに有る、「[元の値]を動的に変化させる」という項目にも詳しく解説されています
この回答への補足
回答いただきありがとうございます。
この方法では、プルダウンの中から1つしか選ぶことができません。
C列で出てきた選択肢を複数選択できるようにしたいのです。
よろしくお願いいたします。
- 質問者のみ
- この回答にお礼をつける
このQ&Aを見た人はこんなQ&Aも見ています
- 4(初心者)Excelで連動するドロップダウンリストを作成しています。
- 5excelで左のセル項目にあわせたプルダウンボックスを表示させたい
- 6EXCELのデータの入力規則を1つのセルで複数設定出来ますか?
- 7エクセル:セルに選択項目が入った選択ボックスをつけたい
- 8エクセル プルダウンリスト選択し、別のセルにデータを自動入力
- 9MS-Excel:二つ以上の条件で入力規則のリストを変更したい
- 10Excelの入力規則について
- 11エクセルのリストボックスから複数選択する方法
- 12【Excel】プルダウンリストを作成して項目に値を関連付けるには
- 13EXCEL ドロップダウンリスト連動について
- 14エクセルのリストボックスの複数選択について
- 15[エクセル]ドロップダウンリストでセルを連動したい
- 16EXCEL・複数条件がある場合のCOUNTIFの書き方
- 17EXCELの機能の事で…初歩的でスミマセン
- 18エクセル2007 ドロップダウンリストの空白をなくすには
- 19エクセルのセル中についてるプルダウンの内容を変えたい
- 20複数の条件を組み合わせたドロップダウンリストの作成
注目の記事
教えて!Firefox
より速く、より安全なウェブブラウザ「Firefox(ファイアーフォックス)」に関する疑問をみんなで解決。全くの初心者から上級者までFirefoxの魅力を十分に味わうために、教えて!gooのユーザーみんながお手伝いします。
このQ&Aを見た人がよく見るQ&A
このカテゴリで人気のQ&Aランキング
- 4Excel文書が読み取り専用になって解...
- 5Excelの行列幅をcmで表示したい
- 6VLOOKUP関数で複数の検索値を設定し...
- 7EXCELの日付データを文字列に変換し...
- 8エクセルのセルに入力した文字数
- 9excelからexcelへの差し込み印刷
- 10エクセルにおいて、シートの保護を...
- 11iPadでワード、エクセルを使うには...
- 12エクセルで条件に合うものを別シー...
- 13エクセルに写真の貼り付けが出来ま...
- 14エクセルで複数のグラフを重ねる方法
- 15Excelで、エラーの #DIV/0! を表示...
- 16エクセルで列の全ての項目に文字を...
- 17PDF化されたEXCELの表をEXCELファイ...
- 18ワードのチェックボックス
- 19【excelファイルは開くがシートが表...
- 20Excelで入力したデータを他のシート...