课件下载 :
方式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