エクセル 検索＆抽出＆別シートでの表示

質問

エクセルでお聞きしたいことがあります。

＜シート1＞
患者名　診療日　診療内容　・・・（その他項目多数あり）
Aさん　　10/1　　ああああ　・・・・
Bさん　　10/2　　いいいい　・・・・
Cさん　　10/2　　うううう　・・・・
Aさん　　10/5　　ええええ　・・・・
Dさん　　10/6　　おおおお　・・・・
Cさん　　10/10　　かかかか　・・・・
Aさん　　10/10　　きききき　・・・・
Bさん　　10/20　　くくくく　・・・・

シート1には、このような情報がはいっています。
それをシート2で、
「Aさん」と入力すると、シート1に入力しているAさんに関するものがシート２に表示されるようにしたいのです。

＜シート２＞
Aさん
診療日　診療内容　・・・・
10/1　　ああああ　・・・・
10/5　　ええええ　・・・・
10/10　　きききき　・・・・

また、シート２で表示されたものを、罫線で囲みたいと思っています。
ですが、患者さんによって診療回数が違うので、もともとシート２に罫線を作っておくと空欄ができてしまいます。表示されたものの最後までで罫線を囲むことってできるのでしょうか。

教えてください。

回答No.4

imogasi

過去のＯＫＷＡＶＥの質問Ｎｏ．１９０１６１８の＃２に、似た質問の回答をしています。ご覧ください。
ＶＢＡを使ってますが、オートフィルタのマクロの記録程度のもので簡単なものです。
なぜＶＢＡを使うかというと、
（１）再度、別条件で検索するキッカケを捉える。
（２）指定条件で即実行する。（手佐合でフィルタの作業をやらなくてよい）
その為にＶＢＡが効いてきます。

回答No.3

mshr1962

#2のmshr1962です。
先ほど別の方のに回答した内容ですが...これを応用すればできないことはありません。
http://okwave.jp/kotaeru.php3?q=1906539

罫線も細い線だけでいいなら条件付書式である程度は対応できます。
範囲を選択して「書式」「条件付書式」で
「数式が」「=$A2<>""」で書式設定の罫線タブで上下左右に罫線を設定してください。
ただメモリを食うので表示が遅いかもしれません。

回答No.2

mshr1962

シート２でB1:B2に
患者名
Aさん
と入力「データ」「フィルタ」「フィルタオプションの設定」で
抽出先：指定した範囲に●
リスト範囲：シート１のすべてを選択
検索条件範囲：シート２のB1:B2
抽出範囲：シート２のA3
で「OK」する。
患者名　診療日　診療内容　・・・（その他項目多数あり）
Aさん　　10/1　　ああああ　・・・・
Aさん　　10/5　　ええええ　・・・・
Aさん　　10/10　　きききき　・・・・
が表示されます。
A列を非表示にしてから、B3を選択してCtrl+Shift+Endでデータ範囲を選択して罫線を作成してください。

補足

お答えありがとうございました。
上記のやり方は存じておりました。しかしこれを使う方が、あまりPCを使わない方なので、なるべく簡単なものにしたいのです。

検索は、いろいろな患者さんで何度も行うので、毎回上記の手順を踏んで検索するのではなく、シート2の指定したセルに「Aさん」といれ検索し、また同じセルで「Bさん」といれて検索して・・・、という物をつくりたかったのです。検索サイトみたいな感じでできればなと・・・。

VBAでやらなければならないのでしょうかね。

ありがとうございました。
もし、そちらもおわかりでしたら、教えてください。

回答No.1

kamejiro

望みどおりの回答ではありませんが…。

シート１を表示しておいて、患者名の列をアクティブにして、
データ→フィルタ→オートフィルタをします。
タイトル行「患者名」の横に▼が出ます。

▼をクリックすると、患者名が選択できます。
Ａさんを選ぶとＡさんだけの情報が出てきます。
シート１のデータの表全体が罫線で囲まれていたら、データのあるところだけ罫線が出てきます。

簡易的に特定の患者だけを表示させるもので、もう一度、
データ→フィルタ→オートフィルタをすると元に戻ります。