筛选器未运行第二个条件的VBA切换按钮

Sub ToggleFilter()
    Dim ws As Worksheet
    Dim filterRange As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要操作的筛选区域
    Set filterRange = ws.Range("A1:D10")
    
    ' 检查筛选器是否已经打开
    If Not ws.AutoFilterMode Then
        ' 打开筛选器
        filterRange.AutoFilter
    Else
        ' 关闭筛选器
        ws.AutoFilterMode = False
    End If
    
    ' 设置第一个条件
    filterRange.AutoFilter Field:=1, Criteria1:="Value1"
    
    ' 设置第二个条件
    filterRange.AutoFilter Field:=2, Criteria1:="Value2"
    
    ' 如果筛选器未运行第二个条件，则切换按钮
    If Not ws.AutoFilter.Filters(2).On Then
        filterRange.AutoFilter Field:=2, Criteria1:="Value2"
    Else
        filterRange.AutoFilter Field:=2
    End If
End Sub