エクセルで検索・表示の方法を教えてください。

質問

Sheet1のA列にそれぞれの名前を入力し
　　A
１　aさん
２　bさん
３　ｃさん

Sheet2に各人のリスト
　　A　　　B　　　C
１　　　　　　身長　体重
２　aさん　　160　　65
３　ｂさん　　170　　70
４　ｃさん　　155　　60

と記入していきリストを作成しておき
それをSheet１のD列　E列に　aさんの名前をクリックすると
aさんの　　　　　身長　　160
　　　　　　　　　　体重　　65
などリストを表示させたいのですが、
Sheet１のA列の名前表示は動かないで
ｂさんをクリックするとE列の結果だけ変わるように
したいのですが。関数がわかりません。
教えてください。

回答No.3

tom04 · ベストアンサー

こんばんは！

ご希望の方法に一番近いのは、入力規則の「リスト」だと思いますが、
クリックでの方法となるとVBAになってしまいます。

その一例です。
↓の画像のようにSheet2にデータの表があるとします。

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'この行から
Dim i As Long
Dim wS As Worksheet
Set wS = Worksheets("Sheet2") '←「Sheet2」は実際のSheet名に！

If Application.Intersect(Target, Columns(1)) Is Nothing Or Target.Count <> 1 Then Exit Sub
If Target <> "" Then
If WorksheetFunction.CountIf(wS.Columns(1), Target) Then
i = WorksheetFunction.Match(Target, wS.Columns(1), False)
With Range("E1")
.Value = wS.Cells(i, 2)
.Offset(1) = wS.Cells(i, 3)
End With
Else
MsgBox "該当データはありません。"
End If
End If
End Sub 'この行まで

※　どうしても関数でやりたい場合は無視してください。m(_ _)m

お礼

tom04様
早々のご教授、誠にありがとうございます。
ＶＢＡまではよく解らないのですが
この記述を試してみます。

回答No.2

某HN クロメート(Chromate)（@CoalTar）

セルをクリックでは無理ですので代案です。

1. Sheet1で名前の定義([Ctrl]+[F3])
名前:桜
参照範囲:=$A$1:INDEX($A:$A,COUNTA($A:$A))

2. フォームツールバーからリストボックスを配置
3. (リストボックスの)コントロールの書式設定([Ctrl]+[1])
入力範囲:桜
リンクするセル:B1

するとリストボックスをクリックすることでB1セルの数値が変わるので
INDEX関数などで身長や体重を引っ張ってきます。
=INDEX(Sheet2!A:A,$B$1+1)&"の"

# リストボックスをA列に重ねれば、それっぽい？

回答No.1

noname#187541

こんにちは。

＞クリックすると
これが条件にある限り、関数では無理でVBA(マクロ)になるでしょう。

検索自体は、VLOOKUP関数でできますが、この関数の第一引数である「検索値」をどうするかです。
ご質問の様な動作で検索値を変えるというのは、VBAでなければ無理と言うことになります。

代案として、どこかのセルを検索値として使用するセルにします。
このセルに「入力規則」のリストを使って、aさん・bさん・cさんを選ぶ様にします。
このようにしておけば、選べば表示が切り替わる様になるでしょう。

お礼

早速ご教授有り難う御座います。
別セルを設けて「入力規則」のリスト使用では
解決していたのですが、個々の名前をクリックした
状態での表示を望んでおります。
有り難う御座いました。