多个AutoFilter标准?

时间:2013-09-05 16:36:56

标签: excel excel-vba excel-2007 vba

我在电子表格中有一个表格,我在AutoFilters中使用了这个表格。表中的列是:

日期 名称 公司 类型 额外费用 剂

我需要能够按日期和公司进行过滤。到目前为止,这是我正在使用的代码,用于应用自动过滤器:

With ActiveSheet
    .AutoFilterMode = False
        With .Range("A1:F1")
             .AutoFilter
             .AutoFilter field:=1, Criteria1:=">=" & Me.boxDateBegin.Value, _
             Operator:=xlAnd, Criteria2:="<=" & Me.boxDateEnd.Value
             .AutoFilter field:=3, Criteria1:="Bear River Mutual"
        End With
End With

唯一的问题是这似乎没有应用第二个过滤器(字段:= 3)。我做错了吗?

不是由OP编辑,而是从OP的评论

编辑

原来过滤器运行良好

1 个答案:

答案 0 :(得分:0)

以下代码可能对您有所帮助..

With ActiveSheet .AutoFilterMode = False With .Range("A1:F1") .AutoFilter .AutoFilter field:=1, Operator:=xlFilterValues, Criteria1:=">=" & Me.boxDateBegin.Value, _ Operator:=xlAnd, Criteria2:="<=" & Me.boxDateEnd.Value .AutoFilter field:=3, Criteria1:="Bear River Mutual" End With End With