Question

所以我有一个Excel，它具有日期字段和标志。
我需要创建一个新表，但只能使用 date = today（）+ 14 AND ，其中任何标志（列）都没有“ TRUE”字符串。

我知道如何创建新表格。
但是我正努力在接下来的14天中创建一个过滤器。

接下来的7天，我记录了一个宏，它给了我这段代码，但是我无法在14、28等时间内对其进行修改。

ActiveSheet.Range("$A$1:$AO$959").AutoFilter Field:=3, Criteria1:= _
        xlFilterNextWeek, Operator:=xlFilterDynamic
    ActiveWindow.SmallScroll Down:=-9

Answer 1

您不需要内置的日期过滤器。您可以像这样构建自己的

ActiveSheet.Range("$A$1:$AO$959").AutoFilter Field:=3, Criteria1:= _
    "<" & Date + 14, Operator:=xlAnd

请注意，VBA在日期方面非常以美国为中心。如果您在非美国日期格式的国家/地区使用此密码，则可能需要将条件更改为

Critieria1: = "<" & Format$(Date + 14, "yyyy/m/d")

或任何适合您的日期格式。但是我会先不使用Format()尝试一下，并且只有在得到奇怪结果时才使用它。

Excel宏只能在接下来的14天之内创建新工作表

1 个答案: