取消选择除当月以外的所有日期（VBA EXCEL自动筛选）

我正在尝试使用VBA取消选择当前月份我知道如何使用VBA仅选择当前月份（代码如下），但我不知道如何在保留其他月份的同时取消选择当前月份

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

---

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

Cells.AutoFilter

然后选择所有其他月份

尝试以下操作：

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

Sheets（“Sheet1”）。范围（“d1:d20”）。自动筛选字段：=1，运算符：=xlOr_
标准1:=“”&Application.EoMonth（日期，0）

注:

• EoMonth（日期，0）

  标记当前月份的最后一天

• EoMonth（日期-1）

  标记上个月的最后一天

---

它只是取消选择everything@AngatvirSanghera在我的测试中没有。数据中可能有一些不同的内容（请确保正确设置了字段参数）。您的列

D

格式是否为

Date

？我在上面添加了一张它的图片，但格式为Date是的，但我不想做字段4？Nvm您是对的，它做了，但它只是不勾选和取消勾选框。不仅有几个月，还有几年，这将是非常重要的inconvenient@A.S.H.-我可以实施吗四分之一的表（“Sheet1”）的代码相同。范围（“d1:d20”）。自动筛选字段：=1，运算符：=xlOr，Criteria1:=”“”&应用程序。EoQuarter（日期，0）但im处理的筛选器位于D列中。这不是函数的工作方式吗？