エクセルのマクロで・・・再

質問

エクセルの表で、日付の列を検索したいのですが・・・。
例えば　A列に名前　B列に誕生日があるとして、ある期間の誕生日の人を検索したい。とします。
普通にやるならデータ→フィルタ→オートフィルタ→条件をいれて・・・・。となると思うんですが、これをボタン一つで、できるようにしたいんです。
さらに、データがシート１にあるとしたら、条件はシート２のA2とB2に入力した日の間となるようにしたいのです。
エクセルは２０００を使用しています。
以前にも同じ様な内容で教えて頂いたのですが、条件の入れ方が少し違いまして・・・。
ごめんなさい。どなたか教えて下さい。

回答No.1

imogasi

思考実験として考えてください。
言いたいことは、日付けも数も変らないと言うことです。
（１）Ｓｈｅｅｔ１のＡ１：Ａ５にテストデータとして
2002/1/30
2002/3/5
2002/5/3
2002/4/3
2002/6/12
といれてください。
Ａ１：Ａ５は書式は日付けになり、値は日付けシリアル値
37286
37320
37379
37349
37419
になります。（書式－セル－数値）
（２）Ｓｈｅｅｔ２のＡ２：Ｂ２に　
2002/4/30 、2002/5/30　と入力してください。
値はやはり、日付けシリアル値として
37376 37406
になります。
（３）値になったものを見つめていれば、Ｓｈｅｅｔ１の37286、
37320、37379、37349、37419の中から ＞37376、＜37406 の数を
求めるのは、質問に値しないでしょう。
（４）Ｓｈｅｅｔ１のＡ１：Ａ５の書式を「日付け」且つ「１９９７／３／４
」をクリックして、西暦日付けに直し、下記を実行すると、「０２／５／３」
が選べます。
Sub test03()
Worksheets("sheet1").Select
For i = 1 To 5
If Worksheets("sheet1").Cells(i, 1) > 37376 _
And Worksheets("sheet1").Cells(i, 1) < 37406 Then
MsgBox Cells(i, 1)
End If
（５）以上から、上記のように考えられるためには、Ａ１：Ａ５とＡ２：Ｂ２
の内容が、日付け形式で入っていることがポイントです。
Ａ２：Ｂ２などに、文字列として入っていると、関数などで、日付け形式に
戻すと易しくなります。文字列のまま考えると、２００２／１２／１（２桁月）と
２００２／４／３（１桁月）などの比較する場合でややこしくなります。

お礼

回答ありがとうございます。
ちょっと、難しいですがお勉強になりました。
ありがとうございます。