おしえて

エクセルのドロップダウンリストの応用について

締切済

質問者：英やん
質問日時：2016/03/22 11:22
回答数：4件

今までも同じような質問があったようですが、僕がしたいこととちょっと違うみたいなので、どなたか教えてください。
AとBの二つのエクセルブックがあって、Aのブックのシート1にはA1のセルに氏名、B1のセルには住所、C1には生年月日があるとします。行方向にもいっぱい人がいて、列方向にももっとデータがあります。ここでBのブックのシート1のA1セルにAブックの氏名列(A列)から、約100人分のドロップダウンリストを作ります。このリストで選んだ人のデータがBブックの任意のセルに住所、生年月日などのデータが表示出来るようにしたいんです。今まではLOOKUPで任意のセルに番号を打ち込めば、飛ぶようにしてたんですが、番号ではなくリストで選んだ人のデータが飛ぶようにしたい。他に参照になる書類では、コントロールボックスでそういうのをしているのを見かけたことはあるんですが、リスト表示からダイレクトにできるんでしょうか。長くなり済みませんが、どなたかよろしくお願いします。環境はウインドウズ7プロ、オフィスは2013です。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

最新から表示
回答順に表示

No.4

回答者：ママチャリ
回答日時：2016/03/22 22:27

どうしてもやりたいんですよね？手段は選びませんよね？･･･であれば、こんな感じでどうでしょうか。

下記のプログラムをブックBのシート１のWorksheet_SelectionChangeイベントプロシジャに張り付けます。
次にブックBのシート１のA1セルに入力規則でリストを設定します。リストの内容は、とりあえず適当でOKです（マクロ内で再設定するので･･･）。ただし、入力時メッセージのタイトルは、”MyList”としてください。
それから、ブックAとBは同時に開かれていることが前提となります。また、氏名にカンマが含まれていると姓と名が別々のリストとして表示されてしまいます。

【プログラムの仕様】
入力規則のタイトルが、”MyList"であるセルが選択された場合、リストの表示内容をブックAのシート１のA列からダイナミックに設定します。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Validation.InputTitle <> "MyList" Then Exit Sub
Dim ws As Worksheet
Dim I As Long
Dim MyList As String
Set ws = Workbooks("A.xlsx").Sheets("Sheet1")
For I = 1 To ws.Cells(Rows.Count, "A").End(xlUp).Row
If MyList <> "" Then MyList = MyList & ","
MyList = MyList & ws.Cells(I, "A")
Next I
Target.Validation.Modify Formula1:=MyList
End Sub

- 0
- 件

通報する

この回答へのお礼

すみません、僕には高度すぎて手に負えません。それに何人かと共有してこのファイルを使うので、何かあった時に対応できません。みな僕といっしょくらいのリテラシーなので。どうも大変ありがとうございました。

通報する

お礼日時：2016/03/23 08:52

No.3

回答者： d-q-t-p
回答日時：2016/03/22 19:37

データベースクエリ（Microsoft Queryか ODBC接続）で氏名リストを Distinct

で取り込んで作成されたテーブルを名前定義。それを入力規則のリストに設定。
同じくデータベースクエリでその他の情報を選択したリストセルをパラメータ
にして抽出。

という流れでできますが知識がないとさすがに無理だと思います。
条件を SQLで直接指定するか Microsoft Queryで設定するかが必要です。

上記の方法が無理なら VBAの勉強をしてマクロで処理するくらいかと思います。