MS Excel VBA - 按日期过滤（不包括整年）

Question

我正在寻找能够包含列内所有日期的代码，除了enire year（2016）

GRBReportSheet.Range("A" & IHRISFILTERFR & ":L" & IHRISFILTERLR).AutoFilter Field:=4, Operator:= _
xlFilterValues, Criteria2:=Array(0, "12/31/2016")       'Filter by Start Date within 2016

以下代码正在为2016年的所有实例过滤我的报告，但在一个程序部分中，我希望按照2016年之前的所有日期进行过滤。我知道在使用其他项目过滤时我会使用：

Criteria2:=">< Something"

不确定如何在日期数组中使用它。非常感谢你的时间!!

Answer 1

您可以在AutoFilter中使用两个条件：

.AutoFilter Field:=1, 
  Criteria1:="<01/01/16", 
  Operator:=xlOr, 
  Criteria2:=">12/31/16"

以下是一个使用示例 - 可能需要调整以适应您的情况：

Sheet1.Range("A1").AutoFilter Field:=1, Criteria1:="<01/01/16", Operator:=xlOr, Criteria2:=">12/31/16"