excel Criteria1实例

Admin | 2011-10-4 10:54:16 | 被阅次数 | 12661

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　关于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杂文

上一篇：excel用图表动态反映数学函数y=3x+4的曲线

下一篇：使用CreateObject创建Excel实例代码