AttributeVB_Name="筛选"
Sub筛选()
''定义区域为QY
SetQY=Application.ActiveWorkbook.ActiveSheet.Range("$A$1:$B$2")
''对一个条件进行筛选
QY.AutoFilterField:=1,Criteria1:="=条件一"
''对两个条件进行筛选
QY.AutoFilterField:=1,Criteria1:="=条件一",Operator:=xlOr,Criteria2:="=条件二"
''定义三个或超过三个条件进行筛选
QY.AutoFilterField:=1,Criteria1:=Array("=条件一","=条件二","=条件三"),Operator:=xlFilterValues
''全部显示
QY.AutoFilterField:=1
''AutoFilterField:=3表示带有筛选下拉菜单,从左数第3个
''以上条件前面的“=”可以不填,但最好填上
''Criteria1:=表示筛选字段
''Operator:=xlOr,Operator:=xlAnd表示逻辑或和与
''Array()表示数组
''Operator:=xlFilterValues表示筛选值
EndSub
|
|