Board logo

標題: [發問] 判斷自動篩選AutoFilter的問題 [打印本頁]
作者: uf023630    時間: 2011-5-5 20:26     標題: 判斷自動篩選AutoFilter的問題

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

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
作者: uf023630    時間: 2011-5-5 21:15

oobird 大大
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
從監看式看ActiveSheet.FilterMode 的值一直是False
除非自動篩選有＂篩選＂值才會是True,ShowAllData也只是把自動篩宣選放掉
並不是去”取消”自動篩選
作者: GBKEE    時間: 2011-5-6 08:44

回復 3# uf023630
  1. Sub Ex()
  2.     With ActiveSheet
  3.         If Not .AutoFilter Is Nothing Then .UsedRange.AutoFilter
  4.     End With
  5. End Sub
複製代碼
作者: oobird    時間: 2011-5-6 12:20

看來樓主的意思應該是：
If ActiveSheet.AutoFilter Is Nothing Then
MsgBox "無自動篩選"
Else
MsgBox "有自動篩選"
End If
作者: uf023630    時間: 2011-5-6 19:41

哎呀~原來AutoFilter 後面是要用 Is Nothing  不是用False or True 哎呀~真是 見笑了
感謝GBKEE大大一次解決我兩個問題
作者: GBKEE    時間: 2011-5-6 21:07

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



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