標題: 篩選問題 [打印本頁]

---

作者: spermbank    時間: 2011-10-22 13:14     標題: 篩選問題

我再做篩選的時候，利用錄製程式碼的過程中..
看到
ActiveSheet.ShowAllData 顯示所有資料
要怎麼加入判斷是否顯示所有資料，再決定清除

我自己再更新巨集時，因為有時候未手動清除篩選所以未顯示所有資料，有時候顯示所有資料，
可是如果再顯示所有資料的途中，就會出現錯誤。

---

作者: kimbal    時間: 2011-10-22 13:47

方法有很多, 最簡單(但不直接)的話 ,是跳過所有錯誤

on error resume next
ActiveSheet.ShowAllData
....

---

作者: GBKEE    時間: 2011-10-22 16:52

回復 1# spermbank

1. Sub Ex()
   
2.     With ActiveSheet
   
3.         If Not .AutoFilter Is Nothing Or .FilterMode Then  'FilterMode=True ->篩選模式
   
4.             .ShowAllData
   
5.            ' .Cells.AutoFilter   '取消篩選
   
6.         End If
   
7.     End With
   
8. End Sub

複製代碼

---

作者: Hsieh    時間: 2011-10-22 21:37

回復 1# spermbank

1. Sub nn()
   
2. Dim A As Filter
   
3. With Sheet1
   
4.    For Each A In .AutoFilter.Filters
   
5.       If A.On Then .ShowAllData
   
6.    Next
   
7. End With
   
8. End Sub

複製代碼

---

作者: spermbank    時間: 2011-10-22 23:29

感謝各位大大指教，測試成功^^ 謝謝

---

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