分享

Excle VBA 数据自动筛选

 剩矿空钱 2019-02-24

在Excle里面,进数据区域的查询和筛选都是经常用到的,上一篇讲了查询,本例就讲一下筛选

问题如下:

Excle VBA 数据自动筛选

解决的思路如下:

Excle VBA 数据自动筛选

代码运行的结果如下:

Excle VBA 数据自动筛选

代码如下:

Excle VBA 数据自动筛选

代码解析

1:1行 worksheet_change 事件;

2:2行 只判断A6单元格的内容,其它区域不判断;

3:3行 当A6单元格的内容为空时,也退出事件;

4:4行 dim定义变量;

5:5行 取消表格内所有区域的隐藏;

6:6行 把表格内的数据,放入数组arr;

7:7行 对arr数组进行循环判断;

8:8行 判断U8:U507的数据是否为零;

9:9-12行 把数据为0的行,赋值给rng单元格区域;

10:13行 隐藏rng单元格区域;

小结:

解决本问题,需要用的知识点:

1:事件

2:for next 语句

3:if语句

4:Union方法

私信 视频 可以获取54集VBA入门视频

私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多