VBA宏检测工作簿激活筛选无响应，疑循环逻辑问题求助

你的VBA代码运行无反应，核心问题不是循环顺序，而是AutoFilterMode的检测范围有限——它只能识别普通单元格区域开启的自动筛选，无法检测Excel表格（ListObject）中的激活筛选。此外，代码在无筛选时没有任何反馈，也会让你误以为代码未执行。

原代码的缺陷 #

• 仅通过ws.AutoFilterMode判断，遗漏了表格对象的筛选状态
• 未显式初始化harFilter变量（虽然VBA默认初始为False，但显式初始化更规范）
• 无筛选时无任何提示，无法确认代码是否正常运行

修正后的代码 #

Sub VisaFilterMeddelande()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim harFilter As Boolean
    Dim meddelande As String
    
    ' 显式初始化变量
    harFilter = False
    
    ' 遍历所有工作表，检测两种筛选类型
    For Each ws In ThisWorkbook.Worksheets
        ' 检测普通区域的自动筛选
        If ws.AutoFilterMode Then
            harFilter = True
            Exit For
        End If
        ' 检测表格(ListObject)中的筛选
        For Each tbl In ws.ListObjects
            If tbl.ShowAutoFilter And tbl.AutoFilter.FilterMode Then
                harFilter = True
                Exit For
            End If
        Next tbl
        ' 如果已找到筛选，直接退出工作表循环
        If harFilter Then Exit For
    Next ws
    
    ' 根据检测结果弹出提示
    If harFilter Then
        meddelande = "Arbetsboken innehåller aktiva filter."
        MsgBox meddelande, vbInformation, "Filterkontroll"
    Else
        ' 新增无筛选时的提示，确认代码已执行
        MsgBox "Arbetsboken innehåller inga aktiva filter.", vbInformation, "Filterkontroll"
    End If
End Sub

修正说明 #

• 新增对ListObject表格筛选的检测：通过遍历工作表中的表格对象，判断ShowAutoFilter（表格是否开启筛选功能）和FilterMode（表格是否处于筛选状态）
• 显式初始化harFilter变量，避免潜在的变量值混乱
• 无筛选时新增提示弹窗，让你明确知道代码已正常运行

内容的提问来源于stack exchange，提问作者Kristian