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