Question

如何使以下过滤器工作？报告每周生成一次，用户只需输入开始日期和结束日期。必须根据用户给出的值来应用过滤器。

我录制了一个宏并将代码作为

has body = true
content type = text/html
charset = UTF-8
files uploaded, result =

我想引用上面句子中的单元格而不是值：

如下所示：

true

以上语句引发错误。

日期值为5/14/2018和5/19/2018

字段中的示例值

ActiveSheet.Range("$A$1:$C$29663").AutoFilter Field:=1, Criteria1:= _
    ">=5/14/2018", Operator:=xlAnd, Criteria2:="<=5/18/2018"

（格式化为短日期）

Answer 1

尝试，

with ActiveSheet.Range("A1:C99999")
    .AutoFilter Field:=1, Operator:=xlAnd, _
                Criteria1:=">="&format(Worksheets("Sheet1").Range("B3").Value, "mm/dd/yyyy") _
                Criteria2:="<="&format(Worksheets("Sheet1").Range("B4").Value, "mm/dd/yyyy")
end with

日期范围过滤器VBA

1 个答案: