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

【问题标题】：VBA Excel autofilter for any date before the current monthVBA Excel自动过滤当前月份之前的任何日期
【发布时间】：2015-02-11 14:42:06
【问题描述】：

我正在尝试过滤日期列以查找当前月份 1 日之前的任何日期。所以类似于下面的内容：

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

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

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

【问题讨论】：

请指定哪些日期应该可见。
感谢您的浏览。因此，在当年中，在当月第一天之前的任何日期。如果现在应用过滤器，它将仅显示 2015 年 1 月的日期。如果在 8 月应用，则只有生成的可见日期应该是 2015 年 1 月至 2015 年 7 月之间的任何日期。

标签： vba excel

【解决方案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

【讨论】：

非常感谢您的观看，这很奏效。非常感谢。