vba中的自动筛选(atuo filter) 实现(realize)
来源:互联网 发布:2017年度人工智能报告 编辑:程序博客网 时间:2024/05/14 21:04
Private Sub CommandButton1_Click()
'AutoFilter A+
Range("C1:H53").Select
ActiveWindow.SmallScroll Down:=-48
Selection.AutoFilter
ActiveSheet.Range("$C$1:$H$54").AutoFilter
ActiveSheet.Range("$C$1:$C$54").AutoFilter Field:=1, Criteria1:="=T*", Operator:=xlAnd
'AutoFilter A+
Range("C1:H53").Select
ActiveWindow.SmallScroll Down:=-48
Selection.AutoFilter
ActiveSheet.Range("$C$1:$H$54").AutoFilter
ActiveSheet.Range("$C$1:$C$54").AutoFilter Field:=1, Criteria1:="=T*", Operator:=xlAnd
End Sub
在上面的代码中, Range("C1:H53").Select负责选中数据区域。
Selection.AutoFilter 开始自动筛选。
ActiveSheet.Range("$C$1:$H$54").AutoFilter 不加条件的筛选,其实就是实现了还原所有可能已经存在的筛选条件。
ActiveSheet.Range("$C$1:$C$54").AutoFilter Field:=1, Criteria1:="=T*", Operator:=xlAnd
field:=1 指的是在c1:c54中的第一列,Criteria1:="=T*"指筛选条件是第一个字符是T,Operator:=xlAnd筛选条件之间是“与”的关系。
阅读全文
0 0
- vba中的自动筛选(atuo filter) 实现(realize)
- Excel 中的自动筛选状态栏显示“Filter Mode”(“筛选”模式)消息
- vs项目中的筛选器(filter)
- vba 单击跳转并且自动筛选
- Excel VBA 根据筛选条件自动汇总统计(for 铁虎)
- vs2010 筛选器(filter)
- vs2010 筛选器(filter)
- 【VBA研究】工作表自动筛选模式检测
- VBA复制粘贴自动筛选后的内容
- vba得到经过自动筛选过的行数
- Realize
- Filter 实现自动登录
- 自动筛选的逻辑(3)-实现隐藏
- excel vba筛选
- VBA筛选AutoFilter用法
- WebIntercepting Filter(截取筛选器)
- cad vba中的权限实现
- VBA 自动导入文件夹中的EXCEL表
- HDU
- poj-1191-棋盘分割
- css基本操作
- Head First设计模式学习笔记
- 第四篇:深入浅出UML类图(一)
- vba中的自动筛选(atuo filter) 实现(realize)
- 301和302跳转的区别
- spark学习笔记:考察集群的文件读取机制
- 【23种设计模式】创建型模式 > 单例模式
- Java-继承、重载、重写、多态
- 刷题——Cow Exhibition POJ
- UIImage 的图片平铺实现效果
- Python3《机器学习实战》学习笔记(五):朴素贝叶斯实战篇之新浪新闻分类
- android keycode