课件下载 :
方式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
作者: 杨校
出处: https://blog.csdn.net/kese7952
分享是快乐的,也见证了个人成长历程,文章大多都是工作经验总结以及平时学习积累,基于自身认知不足之处在所难免,也请大家指正,共同进步。
本文版权归作者所有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出, 如有问题, 可邮件([email protected])咨询。