Question

我想按日期制作宏，即过滤表。一切都很好，除了过滤后它没有显示数据。但是当我手动查看collumn时，过滤器设置是正确的，在我单击“OK按钮”后，将显示数据。贝娄是我的代码。感谢您的帮助：）

 Sub Filter ()
    Dim myDate As Date
    myDate= InputBox("Your date? (Format 00.00.0000)")

    Range("C1").AutoFilter
            Range("C1").AutoFilter Field:=3, Criteria1:=">=01.01.2018", _
            Criteria2:="<=" & myDate
            'I also tried "Format([myDate], "dd-mm-yyyy")"

End sub

Answer 1

如果要使用一个单元格过滤范围，则只有一个字段。而不是3：

Range("C1").AutoFilter Field:=1, Criteria1:=">=01.01.2018", Criteria2:="<=" & myDate

日期过滤器不显示数据

1 个答案: