如何先检测筛选条件 .Criteria2值是否存在 而程序不出错? 使用了各种方法都不行.

cgx5871

说明

使用筛选的 Criteria2 属性时，如果该筛选没有使用两个条件，则将出现错误。

在尝试访问Criteria2属性之前, 请检查Filter对象的 Operator** 属性是否不等于零 (0)。

下面的示例将一个变量设置为 Criteria2 属性值。

该属性是 Crew 工作表上已筛选区域中的第一列筛选的。

1. 
   

复制代码

1. With Worksheets("Crew")
   
2. If .AutoFilterMode Then
   
3. With .AutoFilter.Filters(1)
   
4. If .On And .Operator Then
   
5. c2 = .Criteria2
   
6. Else
   
7. c2 = "Not set"
   
8. End If
   
9. End With
   
10. End If
    
11. End With

复制代码

---------------------------上面的是官方给出的说明,  事实上是错误的.
比如  筛选条件  
.Criteria1 =array("a","b","c")   Operator= xlFilterValues   .Criteria2 =array(1,"14/4/2019")
后面还可以再加上日期筛选,这就意味着Operator不能作为唯一的判断条件.  程序还是会出错.