Excel VBA質問箱 IV

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

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


6965 / 76735 ←次へ | 前へ→

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

引用なし
パスワード
   ▼キョウコ さん:>こんにちわ。

>シート1のデータのE列の日付から(K3からM3まで)シート2の売上の日付のデータを抽出し
>シート6へ行ごとコピーしたいのです。

何年何月何日という単一の日付を見つけるには
ワークシート関数Matchを使います。

しかし、
> いつからいつまでを抽出
「期間を抽出」するにはフィルターを使います。


Sub Filter1() 'AdvancedFilter である期間を抽出コピー
  Dim ws1 As Worksheet
  Dim ws2 As Worksheet
  Dim ws3 As Worksheet
  Set ws1 = Worksheets("Sheet1")
  Set ws2 = Worksheets("Sheet2")
  Set ws3 = Worksheets("Sheet6")
  
  'Sheet2の抽出条件をフィルタオプション用範囲[P1:Q2]にまとめる
  With ws2
    'Sheet1[E1]にある列見出し(「売上日」)をSheet2へコピー
    .[P1:Q1].Value = ws1.[E1].Value
    .[P2].Formula = ">=" & .[K3].Value2 '開始日付
    .[Q2].Formula = "<=" & .[M3].Value2 '終了日付
  End With
  'フィルターオプション(AdvancedFilter)で抽出コピー
  With ws3
    .UsedRange.ClearContents
    ws1.[A1].CurrentRegion.AdvancedFilter xlFilterCopy, _
      CriteriaRange:=ws2.[P1:Q2], CopyToRange:=.[A1]
  End With
End Sub

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 発言

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