Excel VBA自动筛选取消选中/排除项目

Question

快速提问，如何通过VBA排除列表中的项目。一直在处理一张自动打印出没有特定日期的列表的工作表。

   Rows("2:2").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$3:$H$1000").AutoFilter Field:=3, Criteria1:="Hans"
    ActiveSheet.Range("$A$3:$H$1000").AutoFilter Field:=7, Criteria1:="open"
    ActiveSheet.Range("$A$3:$H$1000").AutoFilter Field:=6, Criteria1:="<>1/0/1900", Operator:=xlFilterValues
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
     IgnorePrintAreas:=False
         Rows("3:3").Select
    Selection.AutoFilter

问题是该条件不适用于日期0-1-1900来过滤掉它。我做错了什么？

Answer 1

0-1-1900是不存在的日期。这可能是问题所在。

只需使用

Criteria1:=">1/1/1900" 

它应该很好。