取消选择除当前月份之外的所有日期（VBA EXCEL AUTOFILTER）

Question

我目前正在尝试使用VBA取消选择当前月份我知道如何使用VBA选择当前月份（代码如下）但我不知道如何取消选择当前月份而离开其他几个月。

Sheets("Sheet1").Range("d1:d6").AutoFilter Field:=4, Criteria1:=xlFilterThisMonth, Operator:=xlFilterDynamic

Answer 1

试试这个：

Sheets("Sheet1").Range("d1:d20").AutoFilter Field:=1, Operator:=xlOr, _
     Criteria1:="<=" & Application.EoMonth(Date, -1), _
     Criteria2:=">" & Application.EoMonth(Date, 0)

注意：

• EoMonth(Date, 0)标志着当月的最后一天

• EoMonth(Date, -1)标志着上个月的最后一天

Answer 2

也许您首先尝试取消选择过滤器

Cells.AutoFilter

然后您选择所有其他月份