首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >杨老师课堂之Excel VBA 程序开发第七讲之自动筛选

杨老师课堂之Excel VBA 程序开发第七讲之自动筛选

作者头像
杨校
发布2018-12-06 10:34:39
6070
发布2018-12-06 10:34:39
举报
文章被收录于专栏:Java技术分享圈Java技术分享圈

  课件下载 :           

方式1:本节课件下载地址:链接: https://pan.baidu.com/s/1BW1T78d1zpeZq7yFbLOosg 密码: nf97

方式2:或点击此处下载

效果图

代码示例:

    1.在模块1中写入下列代码:

Sub shaixuan()

Range("l1:q10000").ClearContents
Range("A1:F232").AutoFilter Field:=4, Criteria1:=Range("i2")
Range("A1:F232").Copy Range("l1")
Range("A1:F232").AutoFilter

End Sub

    2.在sheet1中选择通用下拉列表中的WorkSheet  右侧选择Change,写入下列代码:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Call shaixuan
Application.EnableEvents = True
End Sub
本文参与 腾讯云自媒体分享计划,分享自作者个人站点/博客。
原始发表:2018年05月11日,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体分享计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档