返回列表下一主題上一主題發帖

[發問] autofilter功能請教

y54161212

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 70
點名: 0
作業系統: Windows10
軟體版本: Office365
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2020-6-14
最後登錄: 2024-8-19

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2024-8-16 11:19 | 顯示全部帖子

[發問] 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取消

請教是哪裡出錯了呢?