自动过滤日期和时间为11/19/2019 23:12

Question

当我更改日期和时间时，是否可以使用VBA自动过滤日期和时间？

我当前的代码允许我过滤日期，但是我仍然必须进入并手动取消选中不需要的时间框。

总的来说，我需要它来过滤从0：00-14：30的当前日期开始的两天之前的数据。

关于如何执行此操作的任何想法？

Sub DueToday（）

Sheets("DueToday").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AB$10000").AutoFilter Field:=23, Criteria1:=Array( _
    "3", "4", "5", "6", "7"), Operator:=xlFilterValues
ActiveSheet.Range("$A$1:$AB$10000").AutoFilter Field:=20, Criteria1:="PP", _
Operator:=xlOr, Criteria2:="RP"
Range("N1").Select
ActiveSheet.Range("$A$1:$AB$10000").AutoFilter Field:=13, Criteria1:="<" & (Date - 1 + 
(Weekday(Date) = 1) * 2), _
    Operator:=xlFilterValues

Sheets("PDBoard").Select
Range("B6").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(3,DueToday!C[-1])-1"

结束子