自动筛选，为什么前2种写法可以，第3种不行？

爱疯

2.rar (14.57 KB, 下载次数: 7)

2019-10-1 12:35 上传

点击文件名下载附件

Sub test()
    Dim x As Date
    x = #10/1/2019#
    ActiveSheet.AutoFilterMode = False

'    Range("a1").CurrentRegion.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria1:=Array(1, x)
'    Range("a1").CurrentRegion.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, x)
'    Range("a1").CurrentRegion.AutoFilter Field:=1, Criteria1:=x
End Sub



请问如题？谢谢

爱疯

3.rar (16.68 KB, 下载次数: 1)

2019-10-1 20:52 上传

点击文件名下载附件

Sub test()
    Dim i
    For i = 0 To 6
        ActiveSheet.AutoFilterMode = False
        Range("a1").CurrentRegion.AutoFilter field:=2, Criteria2:=Array(i, Date), Operator:=xlFilterValues
        Stop
    Next i
    '0所有
    '1本月
    '2到5筛选ok
    '<0或>5，提示"类 Range 的 AutoFilter 方法无效"
End Sub



不知道为什么

爱疯

如果2楼的Criteria2改成Criteria1，那么Array(i, Date)的 i 好像其它整数也可筛选

爱疯

                                                            。                                                           

yaozong

爱疯 发表于 2019-10-5 21:26
。                                       ...

Range("a1").CurrentRegion.AutoFilter Field:=1, Criteria1:="=" & x

爱疯

yaozong 发表于 2019-10-7 14:52
Range("a1").CurrentRegion.AutoFilter Field:=1, Criteria1:="=" & x

谢谢zaoyong
比如，新建一个空白工作簿，只有A列日期。
当进行自动筛选时，录制宏里，参数criteria 的值是array的形式，对此的相关说明，想学习了解一下。谢谢！

爱疯

yaozong 发表于 2019-10-7 14:52
Range("a1").CurrentRegion.AutoFilter Field:=1, Criteria1:="=" & x

4.rar (11.5 KB, 下载次数: 2)

2019-10-7 19:16 上传

点击文件名下载附件

Sub 宏1()
'
' 宏1 宏
'

'
    Range("A12").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$A$28").AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(2, "10/9/2019")
End Sub




就像这样，录制宏默认是
1）为什么用 Criteria2 ，而不是我预想的 Criteria1
2）为什么Criteria2的值的表达形式是 array()
3）其中第1个元素2，表示什么？