[發問] 判斷自動篩選AutoFilter的問題

uf023630

我要如何判斷Sheets 內是否有存在自動篩選,如果有的話要取消
這是我想的～當然不能用...
If selection.autofilter = true then selection.autofilter = False else
後來利用 FilterMode 去判斷，但是只有在有篩選的時候才是True 其他都為false
If Worksheets.FilterMode = True
請大家幫忙我一下

GBKEE

回復 6# uf023630
AutoFilter 是物件
物件不存在   物件 Is Nothing   
物件存在      Not 物件 Is Nothing

uf023630

哎呀~原來AutoFilter 後面是要用 Is Nothing  不是用False or True 哎呀~真是 見笑了
感謝GBKEE大大一次解決我兩個問題

oobird

看來樓主的意思應該是：
If ActiveSheet.AutoFilter Is Nothing Then
MsgBox "無自動篩選"
Else
MsgBox "有自動篩選"
End If

GBKEE

回復 3# uf023630

1. Sub Ex()
   
2.     With ActiveSheet
   
3.         If Not .AutoFilter Is Nothing Then .UsedRange.AutoFilter
   
4.     End With
   
5. End Sub

複製代碼

uf023630

oobird 大大
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
從監看式看ActiveSheet.FilterMode 的值一直是False
除非自動篩選有＂篩選＂值才會是True,ShowAllData也只是把自動篩宣選放掉
並不是去”取消”自動篩選

oobird

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData