您当前的位置: 首页 > 办公软件教程 > Excel教程 浏览
excel Criteria1实例
发布时间:2015-10-25    点击率:次    来源:www.sytcke.com    作者:电脑技术学习网

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

发表留言
发表留言请先登录!
免责声明:本站发布的信息和评论纯属网民个人行为,并不代表本站立场,如发现有违法信息或侵权行为,请直接与本站管理员联系,我们将在收到您的信息后24小时内作出处理!