我在电子表格中有一个表格,我在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的评论
编辑原来过滤器运行良好
答案 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