|
▼キョウコ さん:
>早急なご返答ありがとうございました。
>しかし、載せていただいたマクロを実行しても
>コピーされるのは見出しだけです‥
AdvancedFilterは一般機能ですから、手作業でも実行することができます。
>'Sheet2の抽出条件をフィルタオプション用範囲[P1:Q2]にまとめる
> With ws2
> 'Sheet1[E1]にある列見出し(「売上日」)をSheet2へコピー
> .[P1:Q1].Value = ws1.[E1].Value
> .[P2].Formula = ">=" & .[K3].Value2 '開始日付
> .[Q2].Formula = "<=" & .[M3].Value2 '終了日付
> End With
上のコードのように、「Sheet2」の[P1:Q2]範囲に 抽出条件を手作業で書き
Sheet6 をクリアして、Sheet6をアクティブにして AdvancedFilterによる
抽出コピーを実行して確認してみてください。
Sheet2の [P1:Q1]に書く見出しは Sheet1の[E1]と全く同じでないといけません。
抽出日付が 2014/3/1 〜 2014/3/20 だったら、
[P2]には ">=41699" と、
[Q2]には "<=41718" と
書き込んでください。 この 41699 とか 41718 とかはシリアル値です。
マクロでは
> .[K3].Value2
> .[M3].Value2
で取得しています。
|
|