標題: Excel VBA 指定儲存格值為篩選條件 [打印本頁]

---

作者: pkpk456789    時間: 2016-5-12 13:45     標題: Excel VBA 指定儲存格值為篩選條件

各位好，小弟最近才學VBA，能力不才 多半都使用錄製功能，近期遇到一些無法錄製的語言
如附件所示，小弟再A1(G2)有設下拉選單，望透過VBA轉換成A2模樣
不用透過篩選功能，謝謝

---

作者: stillfish00    時間: 2016-5-12 19:25

回復 1# pkpk456789
不用透過篩選功能?
用隱藏列呢

1. Sub Test()
   
2.   Dim ar, filter As String
   
3.   filter = ActiveSheet.[G2].Value
   
4.   
   
5.   Application.ScreenUpdating = False
   
6.   With ActiveSheet.[C4].CurrentRegion
   
7.     For i = UBound(.Value) To 2 Step -1
   
8.       .Rows(i).EntireRow.Hidden = (.Cells(i, 1).Value <> filter)
   
9.     Next
   
10.   End With
    
11.   Application.ScreenUpdating = True
    
12. End Sub

複製代碼

---

作者: pkpk456789    時間: 2016-5-13 00:50

回復 2# stillfish00


    感謝大神回覆，隱藏列這招我還真的沒想過:D

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)