楊老師課堂之Excel VBA 程序開發第七講之自動篩選

  課件下載 ：           

方式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