欢迎登陆真网站,您的到来是我们的荣幸。 登陆 注册 忘记密码? ☆设为首页 △加入收藏
欢迎加入真幸福QQ群
电脑知识: 基础知识 网络技术 操作系统 办公软件 电脑维修 电脑安全 windows7 windows8 windows10 服务器教程 平板电脑 视频播放教程 网络应用 互联网 工具软件 浏览器教程 QQ技巧 输入法教程 影视制作 YY教程 wps教程 word教程 Excel教程 PowerPoint
云南西双版纳特产小花糯玉米真空包装


excel用图表动态反映数学函数y=3x+4的曲线
反正切值函数ATAN的使用
excel正切值函数TAN
excel按筛选颜色的VBA代码
EOMONTH函数的作用及用法
win7电脑中快速切换程序窗口
excel RTD函数实际例子及语法
Excel累加、叠加的计算方法
正弦函数sin在Excel中的使用方法
Excel的info函数
excel Criteria1实例
【 来源:网络 】【 点击:1 】 【 发布时间:2017_03_03 08:59:59 】

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

本网站由川南居提供技术支持,fkzxf版权所有 浙ICP备12031891号
淳安分站 淳安分站