『データの検索･抽出について』（りりっく）

教えて下さい。
エクセルで会費の帳簿をつけています。
会費の入金日を入力する際、会社名を探しだすのに
苦労しています。
オートフィルタのオプション設定で呼びだしして
いますが、これ以外に簡単に検索して、呼び出す
という機能はないでしょうか？
よろしくお願いたします。

EXCEL2003　　WINDOWS XP　
----
 編集 → 検索　または、Ctrl + F
 の検索を使用するのは如何でしょう？
　
 （キリキ）(〃⌒o⌒)b
----
キリキ様

ありがとうございます。
たしかに検索できますが、その会社だけを呼び出して表示したいのです。
その会社だけをリストに表示させるにはどうしたらいいのでしょうか？

----
 でしたら、フィルタオプチョンでしょうか。

 （川野鮎太郎）
----
川野鮎太郎様

ご返答ありがとうございます･･･。
ですが、最初の質問の文章に書きましたが、
今までフィルタのオプションを使っていました･････。
ですので、それ以外の簡単に検索でき、さらに抽出できる
方法を探しています。

----
 何か勘違いされているようですが、当初のりりっくさん質問には、
＞オートフィルタのオプション設定

 私が書いたのは、フィルタオプション　です。

 内容が全然違いますよ。

 （川野鮎太郎）
----
川野鮎太郎様
大変失礼致しました。
そちらも以前ためしてみました･･･。
フィルタ以外の方法を探しています。

----
 入力規則のことかな・・・。

 （川野鮎太郎）
----
 こう言うことでしょうか？？？
　
 例えば、A列 に、会社名が沢山ある
 順不同で、重複もある
 フィルタをかける際
　（すべて）
　（トップテン...）
　（オプション...）
　企業名A
　企業名B
 の様に下に沢山出てしまうため、探すのが大変
 よって、簡単にどうにかならないか？
　
 ということであれば、オートフィルタをそのまま使用し
 作業列を作成することで解決できそう？
　
	[A]	[B]	[C]	[D]
[1]	会社	項目１	項目２	あああ
[2]	あああ	7	6	○
[3]	いいい	7	9	
[4]	ううう	7	6	
[5]	えええ	6	9	
[6]	あああ	3	4	○
[7]	いいい	8	1	
[8]	ううう	3	2	
[9]	えええ	8	10	
[10]	あああ	9	3	○
　
 上記のような表だとして
 D1 に、検索したい会社名を入力
 D2 =IF(OR($D$1="",$D$1=A2),"○","")
　　以下コピー
 D列 でフィルタを「○」でかける
　
 以上で如何でしょう？
 （キリキ）(〃⌒o⌒)b
----
 　
 >会社名を探しだすのに苦労しています。
 この苦労がよく分からないので、詳しく教えていただければ
 何か方法が見つかるかもしれませんよ。
 (どの様にデータが入っていて、どの様な作業をしていて、どの様に大変なのか。)

 オートフィルタのオプションを使わずに　探し出したいのですか？
 それとも
 オプションを選んで、検索文字を入力して、[を含む]を選んで・・・・
 と言う操作が簡略化出来ればそれで良いのでしょうか？

 後者であれば、この前こんな質問をしました。
[[20060901133612]]『Enterで実行』（HANA） 

 「簡単に検索して、呼び出すという機能」とは、例えば
 (全くの想像でかまわないので)どんなことを思い描いていますか？
    たとえば、何処かのセルに文字を入れてボタンを押したら抽出される・・・とか？
    何処かのセルに文字を入れると勝手に表示される・・・とか？

 (HANA) 
----
 データに入金日を入力するのに、現在は、オートフィルタのオプションで
 該当する会社のレコードを表示させている。それをもう少し簡単に出来ないか？
 と言うことと推測します。

 ２行目から１０００行目までが、オートフィルタのかかっている範囲とします。
 シートモジュールに下記のマクロをコピペして下さい。
 A1セルに会社名を入力すると、オートフィルタで抽出します。
 A1セルをクリアするとオートフィルタを解除します。
（純丸）(o^-')b
　
 Private Sub Worksheet_Change(ByVal Target As Range)
   Dim mycount As Long
   Dim hani As Range
   Set hani = Range("A2:A1000")
   With Target
      If .Address(0, 0) <> "A1" Then Exit Sub
      If .Count > 1 Then Exit Sub
      mycount = Application.WorksheetFunction.Subtotal(3, hani)
      If .Value = "" Then
         If mycount < hani.Count Then ActiveSheet.ShowAllData
         Exit Sub
      End If
      hani.AutoFilter Field:=1, Criteria1:=.Value
   End With
 End Sub

----
純丸様
有難うございます。
しかし、わたしにはシートモジュールがどこにあるものか（どういうものか）
わからず、作業できずにおります。
お助け下さい。すみません
----
 該当するシートのシート見出しを右クリックして「コードの表示」をクリックすると
 開くウィンドウがシートモジュールです。
（純丸）(o^-')b