Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel宏按超过x天的时间筛选_Excel_Vba - Fatal编程技术网

Excel宏按超过x天的时间筛选

Excel宏按超过x天的时间筛选,excel,vba,Excel,Vba,问题:我可以按Criteria1进行筛选,但在Criteria2上,我只希望筛选那些按Criteria1筛选并超过89天的 代码: Sub Reset_Table() ' ' Reset_Table Macro ' ActiveSheet.Range("$B$39:$I$14625").AutoFilter Field:=5, Criteria1:=Array( _ "First namefilter", "Somethinge

问题:我可以按
Criteria1
进行筛选,但在
Criteria2
上,我只希望筛选那些按
Criteria1
筛选并超过89天的

代码:

  Sub Reset_Table()
    '
    ' Reset_Table Macro
    '
        ActiveSheet.Range("$B$39:$I$14625").AutoFilter Field:=5, Criteria1:=Array( _
            "First namefilter", "Somethingelse", _

    Operator:=xlFilterValues

            'Over 90 days

               ActiveSheet.Range("$B$39:$I$14625").AutoFilter Field:=6, Criteria2:=Array(">89"), Operator:=xlFilterValues                  
    End Sub

使用,
Criteria2
仅在将两个标准同时应用于同一字段时使用。字段6上的第二个过滤器应该是另一个
标准1

with worksheets("Sheet1")
    if .autofiltermode then .autofiltermode = false
    with .Range("$B$39:$I$14625")
        .AutoFilter Field:=5, Criteria1:=Array("First namefilter", "Somethingelse", "everything"), Operator:=xlFilterValues
        .AutoFilter Field:=6, Criteria1:=">89"
    end with
end with

当您使用记录器时,您会得到什么??“范围类方法失败”
Criteria2
仅在您将两个标准同时应用于同一字段时使用。字段6上的第二个过滤器应该是另一个
标准1