リストの連動の応用

質問

エクセル2013を使っています。

次のホームページにあるようなリストの連動（大分類を選択によって小分類の選択肢を変更する）は理解しています。http://www.geocities.jp/chiquilin_site/data/100930_screening2.html

質問したいことは、「大分類の選択肢によっては（プルダウンメニューから選ぶまでもなく）、別の
セルに決まった文字を表示させる方法があるのかどうか、またあるのであればどのようにすれば
よいのか」ということです。

具体的にどういうことかというと、
上記のホームページ中で、例えば分類で「肉」を選んだ場合には品名にはプルダウンメニューから
選ぶまでもなく牛肉が表示され、分類で「野菜」や「果物」を選んだ場合には
プルダウンメニューから品名が選べるようにしたいです。

分類によって、品名がただ一つに決まってしまうものまでわざわざプルダウンメニューから
その一つを選択する手間を省きたいという事です。

回答のほどよろしくおねがいします

回答No.1

tom04 · ベストアンサー

こんにちは！

＞分類によって、品名がただ一つに決まってしまうものまでわざわざプルダウンメニューから
その一つを選択する手間を省きたい

というコトですので、苦肉の策ですが、VBAでの一例です。
↓の画像で右側がSheet2でリストの表を作成しているとし、Sheet1のA・B列のリストが連動しているとします。

画面左下の操作したいSheet見出し（Sheet1のSheet見出し）上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Application.Intersect(Target, Range("A:A")) Is Nothing Or Target.Count <> 1 Then Exit Sub
With Target
If .Value = "肉" Then
.Offset(, 1) = "牛肉"
End If
End With
End Sub 'この行まで

※　Excel2013をお使いだというコトですので、Excel2010以降の場合はリストのデータが別Sheetにあっても
名前定義する必要はありませんので、
Sheet1のA列のリストの「元の値」の欄に
=Sheet2!$A$1:$D$1

B列の元の値の欄に
=OFFSET(Sheet2!$A$2:$A$7,,MATCH(A2,Sheet2!$1:$1,0)-1,,1)

という数式を入れておきます。
わざわざ名前定義する必要はなく、INDIRECT関数も使わなくてOKです。

他によい方法があればごめんなさいね。m(_ _)m

お礼

助かりました。できました！初めてVBAというものを使いました。結合したセルに対しても応用できました。これからはVBAも使えるように勉強します。

回答No.2

KURUMITO

例えば次のようにすればよいでしょう。
Ａ列で大分類のリスト表示をＢ列で小分類のリスト表示を設定するとします。
そこでそれらのリストの参照元としてＦ1セルに肉、Ｇ1セルに野菜、Ｈ1セルに果物と名前が入力されておりＦ2セルには牛肉を、その下行には豚肉、鶏肉、などが有るとします。Ｇ2セルには白菜が主でしたら白菜、その下行には他の野菜を並べます。Ｈ2セルについてもりんごが主でしたらりんご、その下行には他の果物を並べます。
Ｂ列の小分類では名前の定義を利用してリストの画面では=INDIRECT(A1)のようにすればリスト表示ができますね。
所Ａ1セルに肉が入力された時、野菜が入力された時、果物が入力されたときに第一優先での名前、すなわち牛肉、白菜、りんごなどをリストを使わずに表示させるためにはＢ列にリストの表示機能が有る中でＢ1セルには次の式を入力して下方にドラッグコピーします。

=IF(A1="","",INDEX(F$2:H$2,MATCH(A1,F$1:H$1,0)))

これでＡ1セルでリストから肉が選択されれば牛肉がＢ1セルに表示されます。しかしながら一旦Ｂ1セルでリストの選択からデータが表示された場合にはＢ1セルに入力した式は消えてしまいますので、その後は自動的な表示がされません。
それを無くしたような操作となりますとマクロによる取り組みが必要となりますね。

お礼

マクロで入力することにしました。回答ありがとうございます。これからはマクロも勉強します