在Excel中打開,保存或關閉工作簿時如何清除篩選器?
假設您的工作簿中有多個包含過濾數據的工作表。 要清除所有過濾器,您需要檢查不同工作表中的過濾列表,然后手動將它們一一清除。 這很煩人! 在本文中,我們將向您展示在 Excel 中打開、保存或關閉工作簿時清除過濾器的幾種方法。
在Excel中打開工作簿時清除過濾器
在Excel中保存工作簿時清除過濾器
在Excel中關閉/退出工作簿時清除篩選器在Excel中打開工作簿時清除過濾器驚人的! 在 Excel 中使用高效的選項卡,如 Chrome、Firefox 和 Safari!每天節省50%的時間,并減少數千次鼠標單擊!本節討論打開工作簿時清除所有工作表中的篩選器。 請執行以下操作。
1.在工作簿中,您需要在打開時自動清除所有過濾器,請按 其他 + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。
2.在 Microsoft Visual Basic應用程序 窗口,請雙擊 的ThisWorkbook 在左邊 項目 窗格,然后將以下VBA代碼復制并粘貼到 本工作簿(代碼) 窗口。 看截圖:
VBA代碼:打開工作簿時清除所有過濾器
Private Sub Workbook_Open()Updated by Extendoffice 20221012Dim ws As WorksheetFor Each ws In WorksheetsIf ws.AutoFilterMode Thenws.ShowAllDataEnd IfNext wsEnd SubCopy3。 按 其他 + Q 退出鍵 Microsoft Visual Basic應用程序 窗口。
4。 點擊 文件 > 另存為。 在彈出 另存為 對話框中,指定一個文件夾來保存此工作簿,然后根據需要在其中命名 文件名 框,然后選擇 Excel啟用宏的工作簿 選項從 保存類型 下拉列表,最后單擊 優惠 按鈕。
從現在開始,當打開這個啟用宏的工作簿時,這個工作簿中的所有過濾器都會被自動清除。
在Excel中保存工作簿時清除過濾器您可以在每次保存時清除當前工作簿中的所有過濾器。
1.在工作簿中,您需要自動清除所有過濾器,請按 其他 + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。
2.在 Microsoft Visual Basic應用程序 窗口,請雙擊 的ThisWorkbook 在左邊 項目 窗格,然后將以下VBA代碼復制并粘貼到 本工作簿(代碼) 窗口。 看截圖:
VBA代碼:保存工作簿時清除過濾器
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)Updated by Extendoffice 20221012Dim ws As WorksheetFor Each ws In WorksheetsIf ws.AutoFilterMode Thenws.ShowAllDataEnd IfNext wsEnd SubCopy3。 按 其他 + Q 退出鍵 Microsoft Visual Basic應用程序 窗口。
從現在開始,保存工作簿時,所有篩選器將自動清除。
在Excel中關閉/退出工作簿時清除篩選器在最后一節中,我們將向您展示在關閉或退出工作簿時如何清除工作表中的所有過濾器。
1.打開您需要自動清除所有過濾器的工作簿,然后按 其他 + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。
2.在 Microsoft Visual Basic應用程序 窗口,請雙擊 的ThisWorkbook 在左邊 項目 窗格,然后將以下VBA代碼復制并粘貼到 本工作簿(代碼) 窗口。 看截圖:
VBA代碼:關閉/退出工作簿時,清除工作表中的所有篩選器
Private Sub Workbook_BeforeClose(Cancel As Boolean)Dim ws As WorksheetFor Each ws In WorksheetsIf ws.AutoFilterMode Thenws.AutoFilterMode = FalseEnd IfNext wsEnd SubCopy備注:如果只想清除當前工作表中的過濾器,請使用下面的VBA代碼。
VBA代碼:關閉工作簿時清除活動工作表中的篩選器
Private Sub Workbook_BeforeClose(Cancel As Boolean)Updated by Extendoffice 20221012Dim ws As WorksheetSet ws = ActiveSheetIf ws.AutoFilterMode Thenws.ShowAllDataEnd IfEnd SubCopy3。 按 其他 + Q 退出鍵 Microsoft Visual Basic應用程序 窗口。
從現在開始,單擊工作簿中的“關閉”按鈕后,將自動清除所有篩選器。
相關文章:如何清除Excel中數據透視表中的篩選器緩存(舊項目)?如何清除Excel中活動工作簿中所有工作表中的篩選器?如何根據Excel中的復選框過濾數據?如何在Excel中的過濾列表列中填充一系列數字?最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!準備好增強您的 Excel 任務了嗎? 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel!
為什么需要 Kutools for Excel