从今天的VBA起，我如何在1周内的所有日期过滤列？

Question

从今天开始，我尝试在未来的1周/7天内使用相同的自动滤波器方法在下面显示的VBA中过滤所有日期。我感兴趣的列这次是字段：= 53

    ActiveSheet.ListObjects("Table22").Range.AutoFilter Field:=129, Criteria1:= _
    "UPCOMING"

我想知道这是否可以这样做，如果是这样？

Answer 1

从今天到下周的今天：

.AutoFilter Field:=53, Criteria1:=">=" & Date, Operator:=xlAnd, Criteria2:="<=" & Date + 7

您还可以使用特殊值将过滤器快速设置为“本周”或“下周”。请参阅此列表所有可能的特殊值。

'This Week
.AutoFilter Field:=53, Criteria1:=xlFilterThisWeek, Operator:=xlFilterDynamic

'Next Week
.AutoFilter Field:=53, Criteria1:=xlFilterNextWeek, Operator:=xlFilterDynamic

Answer 2

您可以将过滤器设置为这样：

 ActiveSheet.ListObjects("Table22").Range.AutoFilter 129, ">=" & CLng(Date), xlAnd, "<=" & CLng(DateAdd("d", 7, Date))

为了过滤日期，有必要将它们转换为较长的值，否则过滤器无法正常工作。