篩選問題

spermbank

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

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

kimbal

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

on error resume next
ActiveSheet.ShowAllData
....

GBKEE

回復 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

回復 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

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