类别
实用Excel工具
我想自动筛选 只要改变条件就行
VBA
编号：203
日期：2017/1/12 22:13:32
作者：土豪
阅读：0
range.autofilter(区域的第几列，条件，与条件2的关系（或其他条件），条件2，是否显示下拉箭头）
注意条件二与条件一不在一列 就将上面的写个对应的（把第几列改一下）
这是筛选的代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 2 ThenRange("a3:c14").AutoFilter
Range("a3:c14").AutoFilter 1, Cells(2, 2), , , False
End If
End Sub
下面是按扭取消筛选
Sub 取消()Range("a3:c14").AutoFilter
End Sub
