エクセルで<フィルタ機能>みたいな使い方をしたい

質問

こんにちは。
エクセルについての質問です。

仕事上、エクセルの行ごとにデータ入力しています。　
住所、お客さんの名前、仕事の内容、資料番号　で整理してます。
・●●市/町名/　　ま/丸山/A子/　　内容/　平成19/1番
・●●市/町名/　　か/川村/B男/　　内容/　平成19/2番
・□□市/町名/　　さ/佐藤/C郎/　　内容/　平成19/3番

（今）
・フィルタ機能を使って、住所、名前から絞り込んで　資料番号を探しています。
・行が絞込み表示されるため、その中から探しています。
・単語がどんどん増えていくため、フィルタの選択にとても時間がかかるようになってきました。

（質問）
・●●市、名前など、手入力して、該当行をどんどん絞り込みたいです。
・それを行単位で表示させたいです。
・イメージとしてはアクセスのような使い方になると思います。

アクセスを購入すれば一番よいのですが、ライセンス数がかさむため、
はじめから入っているエクセルを活用できないか、と思い質問します。

お手数おかけしますが、ご存知の方、
ぜひぜひ教えていただけないでしょうか。

回答No.3

noname#79209 · ベストアンサー

DGET関数では？
同じような質問に回答しましたので、ご参考まで．．．
http://security.okwave.jp/qa3582484.html

お礼

回答ありがとうございます♪
似たような内容で悩んでいた方もいるのですね。
回答がたくさんあって、大変参考になりました。
エクセルそんなに詳しくはないのですが、
少しずつ試してみます。ありがとうございました☆

回答No.2

hallo-2007

マクロ案ですが、
ＶＢＡについては、大丈夫ですか。
データのシートの上位に行を3行ほど挿入しておいてください。
シート名を右クリックして「コードの表示」をクリック
ＶＢエディター起動しますので、以下をコピィ、貼り付け

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 Then
Range(Cells(4, 1), Cells(10000, 6)).AutoFilter Field:=Target.Column, Criteria1:="*" & Target.Value & "*"
End If
End Sub

エディターを閉じて、2行目のどこでもかまいませんの抽出したい
文字を入力してみてください。
Private Sub Worksheet_Change(ByVal Target As Range)
～
End Sub　は、シートに変更があったときにイベントを実行
If Target.Row = 2 Then
～
End If　は、変更があったセルの行番号が2行目だったら

Range(Cells(4, 1), Cells(10000,6)).AutoFilter
範囲４行目1列目から、10000行、6列目まで

Field:=Target.Column
フィルターかけるのは、変更のあったセルの列番号

Criteria1:="*" & Target.Value & "*"　
は、変更したセルの文字を含む
Criteria1:=Target.Value & "*"
にしたら、文字で始まる
内容でフィルターがかかると思います。
ご自身のデータに合わせて使ってみてください。

お礼

回答ありがとうございます♪
マクロ案、、、まだマクロは使ったことがありません。
初心者みたいなものですので、時間はかかるかもしれませんが、
教えていただいた様に試してみたいと思います。
ありがとうございました☆

回答No.1

noname#176215

フィルタオプションの設定はどうでしょう。
http://www.kenzo30.com/ex_kisotoku/ex_ks_tokubetu9.htm

それか パラメータクエリを使って別シートに表示させるとか
http://www11.plala.or.jp/koma_Excel/contents6/mame6041/mame604101.html

お礼

早速の回答ありがとうございます♪
フォルダオプション・パラメータクエリ試してみたいと思います。
こんな便利な機能があったのですね。
ありがとうございました。