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

版權聲明：本文為部落客原創文章，未經部落客允許不得轉載。 https://blog.csdn.net/kese7952/article/details/80282030

   課件下載下傳 ：                                    

方式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]）咨詢。