我的电子表格中有一个用于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唯一的问题是,这似乎没有应用第二个过滤器(field:=3)。我做错什么了吗?
不是按OP编辑,而是从OP的评论中编辑
证明该过滤器工作良好,
发布于 2015-08-03 12:16:55
下面的代码可能对你有帮助。
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
https://stackoverflow.com/questions/18641644
复制相似问题