| 
        
          
            | VocExcel(単語帳) / VBA Tips 
 [Key] エクセル / Excel / VBA /マクロ
 
 
 |  <--- 戻る
 
 
 
  
    
            | 指定期間を抽出 (例:10日前から今日まで) |  
            | 
  サンプルファイル 指定期間を抽出します。(例 : 10日前から今日まで)[ポイント]
 ''10日前以上
 Cells(4, "C").Value = ">=" & Date - 10
 '今日の日付以下
 Cells(4, "D").Value = "<=" & Date
 
 
  
 
 |  
            | 
            Sub sample()
 
 '10日前以上
 Cells(4, "C").Value = ">=" & Date - 10
 
 '今日の日付以下
 Cells(4, "D").Value = "<=" & Date
 
 
 Range("B9:D39").AdvancedFilter Action:=xlFilterInPlace, _
 CriteriaRange:=Range("C3:D4"), Unique:=False
 
 End Sub
 
 
 |  | -- |