VBA -检查是否过滤了listobject中的数据

Sub CheckFilteredListObjectData()
    Dim ws As Worksheet
    Dim lo As ListObject
    Dim isFiltered As Boolean
    
    ' 设置要检查的工作表和ListObject对象
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为实际的工作表名称
    Set lo = ws.ListObjects("Table1") ' 替换为实际的ListObject名称
    
    ' 检查ListObject是否已被过滤
    isFiltered = lo.AutoFilter.FilterMode
    
    ' 显示结果
    If isFiltered Then
        MsgBox "ListObject中的数据已被过滤。"
    Else
        MsgBox "ListObject中的数据未被过滤。"
    End If
End Sub