Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6961 / 76735 ←次へ | 前へ→

【75370】Re:いつからいつまでを抽出
発言  kanabun  - 14/3/13(木) 17:13 -

引用なし
パスワード
   ▼キョウコ さん:

>早急なご返答ありがとうございました。
>しかし、載せていただいたマクロを実行しても
>コピーされるのは見出しだけです‥

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
で取得しています。

0 hits

【75365】いつからいつまでを抽出 キョウコ 14/3/13(木) 11:49 質問
【75366】Re:いつからいつまでを抽出 kanabun 14/3/13(木) 13:06 発言
【75367】Re:いつからいつまでを抽出 kanabun 14/3/13(木) 16:15 発言
【75369】Re:いつからいつまでを抽出 キョウコ 14/3/13(木) 16:53 質問
【75370】Re:いつからいつまでを抽出 kanabun 14/3/13(木) 17:13 発言
【75372】Re:いつからいつまでを抽出 キョウコ 14/3/13(木) 17:45 お礼
【75371】Re:いつからいつまでを抽出 kanabun 14/3/13(木) 17:31 発言
【75368】Re:いつからいつまでを抽出 kanabun 14/3/13(木) 16:52 発言

6961 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free