萬盛學電腦網

 萬盛學電腦網 >> Excel教程 >> excel綜合 >> 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

copyright © 萬盛學電腦網 all rights reserved