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