今天天气好晴朗处处好风光，好天气好开始，图老师又来和大家分享啦。下面给大家推荐excel Criteria1实例，希望大家看完后也有个好心情，快快行动吧！
【 tulaoshi.com - Excel教程 】
关于excel的Criteria1用法实例，是结合VBA来使用的，下面是关于Criteria1用法的几个例子，希望对你有所帮助。
Sub SimpleOrFilter()
Worksheets("SalesReport").Select
Range("A1").AutoFilter
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com）Range("A1").AutoFilter Field:=4,Criteria1:="=A", Operator:=xlOr, Criteria2:="=B"
End Sub
Sub SimpleAndFilter()
Worksheets("SalesReport").Select
Range("A1").AutoFilter
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com）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
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com）Range("A1").AutoFilter Field:=6, Criteria1:="12",Operator:=xlTop10Items
End Sub
Sub MultiSelectFilter()
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com）Worksheets("SalesReport").Select
Range("A1").AutoFilter
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com）Range("A1").AutoFilter Field:=4, Criteria1:=Array("A", "C", "E","F", "H"),Operator:=xlFilterValues
End Sub
Sub DynamicAutoFilter()
Worksheets("SalesReport").Select
Range("A1").AutoFilter
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com）Range("A1").AutoFilter Field:=3,Criteria1:=xlFilterNextYear,Operator:=xlFilterDynamic
End Sub
Sub FilterByIcon()
Worksheets("SalesReport").Select
Range("A1").AutoFilter
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com）Range("A1").AutoFilter Field:=6, _
Criteria1:=ActiveWorkbook.IconSets(xl5ArrowsGray).Item(5),Operator:=xlFilterIcon
End Sub
Sub FilterByFillColor()
Worksheets("SalesReport").Select
Range("A1").AutoFilter
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com）Range("A1").AutoFilter Field:=6, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor
End Sub
来源:http://www.tulaoshi.com/n/20160219/1608690.html
看过《excel Criteria1实例》的人还看了以下文章 更多>>
