[發問] autofilter功能請教

我想要開啟excel檔案的時候，將檔案內的autofiler功能自動取消
測試了程式
Dim ws As Worksheet
For Each ws In Worksheets
      If ws.AutoFilterMode Then
         ws.AutoFilterMode = False
      End If
Next ws
不管是設置在那的autofiler都能取消
但是將上述資料區域從range變成Table後就無法自動取消autofiler
所以重新寫了一個
Private Sub Workbook_Open()

Dim ws As Worksheet
Dim tbl As ListObject

For Each ws In ThisWorkbook.Worksheets

      On Error Resume Next
      Set tbl = ws.ListObjects("Table1")
      On Error GoTo 0


      If Not tbl Is Nothing Then
         If tbl.AutoFilter.FilterMode Then
            ' Turn off autofilter
            tbl.AutoFilter.ShowAllData
         End If
      End If


      Set tbl = Nothing
Next ws
End Sub
依舊沒辦法將表格內的autofilter取消

請教是哪裡出錯了呢?

Book1111.zip (21.93 KB)

autofilter功能

樓主熱帖

莫讓他人錯誤傷害自己

xyz66217

中學生 Rank: 2

帖子: 16
主題: 2
精華: 0
積分: 66
點名: 85
作業系統: win7
軟體版本: excel
閱讀權限: 20
註冊時間: 2016-8-24
最後登錄: 2024-11-14

2^#

發表於 2024-8-17 18:01 | 只看該作者

你好，小弟不材，試了一下，
1. 感覺應該是你的篩選不是在第一行，所以不能用這方式，需要先選所在行的 cell，然後還不能指定是開還是關，只能一次開一次關，如圖一
2. 如果你的按鈕要共用，不能用 command bottom (active X 只能作用在該分頁)，要用表單控制項(變成 module)，如圖二

Dim ws As Worksheet
For Each ws In Application.Worksheets
ws1 = ws.Name
'MsgBox (ws1)
Worksheets(ws1).Activate
Cells(3, 1).Select
Selection.AutoFilter
'Selection.AutoFilterMode = False 無法使用
'AutoFilterMode = False 無法使用
Next ws

001.png (31.69 KB)