【ＥＸＣＥＬ】検索機能を追加したい
ＥＸＣＥＬの顧客管理表に検索機能を追加したいと思っています。
概要は以下の通りです。
・Ｓｈｅｅｔ１を顧客データ一覧、Ｓｈｅｅｔ２を検索用シートとし、Ｓｈｅｅｔ２の上段に検索したい
単語又は日付を入れ検索ボタンを押すと、Ｓｈｅｅｔ１のリストからデータを抽出しＳｈｅｅｔ２中段以降に
表示、が理想です。
・Ｓｈｅｅｔ１の顧客データは、毎日数行ずつ追加します。
項目は「日付」「顧客名」などＢ１～Ｍ１まで入っています。
似た質問を調べ、↓の状態までは設定できました。
・Ｓｈｅｅｔ２のＢ１～Ｍ１にＳｈｅｅｔ１同様の項目を作っておき、抽出したい項目の２行目に
検索対象文字を入れる。
（例 Ｂ１の項目が日付の場合、Ｂ２に”２００７/０１/１６”）
Ｓｈｅｅｔ２に作った「検索ボタン」を押すと、Ｓｈｅｅｔ２の４行目
以降に検索対象文字を含むデータが抽出される。
（４行目にもＳｈｅｅｔ１同様の項目を入れています。）
ちなみに、検索ボタンのマクロの内容は以下の通りです。
Private Sub 検索_Click()
Worksheets("顧客入力").Range("顧客データ").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B4:M5"), CopyToRange:=Range("B8:M1063"), Unique:=False
End Sub
※顧客データ・・・Ｓｈｅｅｔ１の顧客リストに定義している名前
※顧客入力・・・Ｓｈｅｅｔ１の名前
これで基本的な検索はできるようになったのですが、日付指定に関して足りない部分があります。
特定の日付指定は可能なのですが、２００７/０１/０１～２００７/０１/３１のような範囲の指定ができません。
また、文字列の検索で「～から始まる」検索は出来るのですが「～を含む」検索が出来ません。
マクロ初心者なのでどこをどう変えればいいのかが分からず困っています。ご教授いただければ助かります。
お礼
出来ました。急いでいたので助かりました。 お礼申し上げます。