excel Criteria1实例

关于excel Criteria1实例三篇

　　关于excel的Criteria1用法实例，是结合VBA来使用的，下面是关于Criteria1用法的几个例子，希望对你有所帮助。

　　Sub SimpleOrFilter()

　　Worksheets("SalesReport").Select

　　Range("A1").AutoFilter

　　Range("A1").AutoFilter Field:=4,Criteria1:="=A", Operator:=xlOr, Criteria2:="=B"

　　End Sub

　　Sub SimpleAndFilter()

　　Worksheets("SalesReport").Select

　　Range("A1").AutoFilter

　　Range("A1").AutoFilter Field:=4, _

　　Criteria1:=">=A", _

　　Operator:=xlAnd, Criteria2:="<=EZZ"

　　End Sub

　　Sub Top10Filter()

　　' Top 12 Revenue Records

　　Worksheets("SalesReport").Select

　　Range("A1").AutoFilter

　　Range("A1").AutoFilter Field:=6, Criteria1:="12",Operator:=xlTop10Items

　　End Sub

　　Sub MultiSelectFilter()

　　Worksheets("SalesReport").Select

　　Range("A1").AutoFilter

　　Range("A1").AutoFilter Field:=4, Criteria1:=Array("A", "C", "E","F", "H"),Operator:=xlFilterValues

　　End Sub

　　Sub DynamicAutoFilter()

　　Worksheets("SalesReport").Select

　　Range("A1").AutoFilter

　　Range("A1").AutoFilter Field:=3,Criteria1:=xlFilterNextYear,Operator:=xlFilterDynamic

　　End Sub

　　Sub FilterByIcon()

　　Worksheets("SalesReport").Select

　　Range("A1").AutoFilter

　　Range("A1").AutoFilter Field:=6, _

　　Criteria1:=ActiveWorkbook.IconSets(xl5ArrowsGray).Item(5),Operator:=xlFilterIcon

　　End Sub

　　Sub FilterByFillColor()

　　Worksheets("SalesReport").Select

　　Range("A1").AutoFilter

　　Range("A1").AutoFilter Field:=6, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor

　　End Sub

【excel Criteria1实例】相关文章：

excel实训心得03-09

关于excel中的cos函数11-03

关于Excel的Hour函数介绍09-22

Excel日期和时间函数11-27

关于Excel工程函数大全11-27

荷花语文教案实例10-19

实例论证雅思的写作方法10-15

学习excel的心得体会02-23

什么是excel2007中的宏11-26

怎么更改Excel迭代公式的次数04-13