跳到主要內容

如何檢查 Excel 工作表中是否應用了篩選器?

對於包含大量數據的工作表,是否可以檢查是否在指定列或整個工作表中應用過濾,而無需手動逐列檢查? 在本教程中,我們將向您展示兩個 VBA 代碼來處理此任務。

檢查是否在特定列中應用了過濾器
檢查是否在工作表中應用了篩選器


檢查是否在特定列中應用了過濾器

要檢查某個列是否被過濾,本節中的 VBA 代碼可以幫你一個忙。

1. 打開您要檢查的工作表是否在特定列中應用了過濾器。

2。 按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

3。 在裡面 Microsoft Visual Basic for Applications 窗口中,單擊 插入 > 模塊,然後在“模塊(代碼)”窗口中復制以下 VBA 代碼。

VBA代碼:檢查指定列是否被過濾

Sub IsFilter()
'Updated by Extendoffice 20221025
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer
xColumn = 3 'Here the number 3 stands for the third column (column C) in the current worksheet
Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
For xFNum = 1 To xAF.Filters.Count
    If xAF.Filters(xFNum).On And xAF.Range(1, xFNum).Column = xColumn Then
        xBol = True
    End If
Next xFNum
If xBol Then
    MsgBox "The specified column is filled"
Else
    MsgBox "The specified column is not filled"
End If
End Sub

備註: 在 VBA 代碼中,數字 3 在這一行“x列 = 3”代表當前工作表中的第三列。 如果你想檢查是否應用了過濾器 E欄, 改變號碼 35.

4。 按 F5 鍵來運行代碼。

如果過濾指定的列,將彈出如下對話框。

否則,您將看到以下對話框。


檢查是否在工作表中應用了篩選器

如果要檢查工作表中是否應用了篩選器,請嘗試本節中的 VBA 代碼。

1. 打開您要檢查是否應用過濾器的工作表。

2。 按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

3。 在裡面 Microsoft Visual Basic for Applications 窗口中,單擊 插入 > 模塊,然後將以下 VBA 代碼複製到 模塊(代碼) 窗口。

VBA 代碼:檢查是否在工作表中應用了篩選器

Sub IsFilterInWorkSheet()
'Updated by Extendoffice 20221024
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer

Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
On Error Resume Next
For xFNum = 1 To xAF.Filters.Count
    If xAF.Filters(xFNum).On Then
        xBol = True
        Exit For
    End If
Next xFNum

If xBol Then
    MsgBox "Filter is applied in the curren worksheet"
Else
    MsgBox "Filter does not apply in the current worksheet"
End If
End Sub

4。 然後,按 F5 鍵運行這段代碼,如果工作表包含過濾,你會得到如下對話框。

否則,您將看到以下對話框。

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations