VBA Excel自动过滤当前月份之前的任何日期

Question

我正在尝试为当前月份 1 日之前的任何日期过滤日期列。
所以类似于下面的东西:

ActiveSheet.Range("$A:$BF").AutoFilter Field:=12, Criteria1:= _
    xlFilterYearToDate, Operator:=xlFilterDynamic

但不包括它运行的当前月份的任何日期。

编辑:
因此，在当年中，在当月第一天之前的任何日期。如果现在应用过滤器，它将仅显示 2015 年 1 月的日期。如果在 8 月应用，则只有生成的可见日期应该是 2015 年 1 月至 2015 年 7 月之间的任何日期。

Answer 1

这应该适合你:

Dim dtStart As Date
Dim dtFinal As Date

dtStart = CDate(Evaluate("DATE(YEAR(NOW()),1,1)"))
dtFinal = CDate(Evaluate("EOMONTH(TODAY(),-1)"))

ActiveSheet.Range("A:BF").AutoFilter 12, ">=" & dtStart, xlAnd, "<=" & dtFinal