返回列表 上一主題 發帖

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

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

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

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

TOP

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

TOP

回復 3# uf023630
  1. Sub Ex()
  2.     With ActiveSheet
  3.         If Not .AutoFilter Is Nothing Then .UsedRange.AutoFilter
  4.     End With
  5. End Sub
複製代碼

TOP

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

TOP

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

TOP

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

TOP

        靜思自在 : 有願放在心裡,沒有身體力行,正如耕田不播種,皆是空過因緣。
返回列表 上一主題