autofilter - Toogle 按钮打开时过滤数据

Question

在我的工作表中有一个工具按钮过滤特定列（下面的代码），过滤条件是单元格 (17,5).value。我想做的是，如果单元格 (17,5).value 更改过滤器仍然打开，过滤器也会自动更改。

Private Sub ToggleButton1_Click()
   Dim LRow As Integer
   
  With ActiveSheet
  
    LRow = .Cells(.Rows.Count, "E").End(xlUp).Row
    
    If ToggleButton1.Value = True Then
      ToggleButton1.Caption = "Filter Item On"
      ToggleButton1.BackColor = vbGreen
      .Range("$A$21:$AF$" & LRow).AutoFilter Field:=4, Criteria1:=.Cells(17, 5).Value
    Else
      ToggleButton1.Caption = "Filter Item Off"
      ToggleButton1.BackColor = vbWhite
      .Range("$A$21:$AF$" & LRow).AutoFilter Field:=4
    End If
    
  End With

End Sub

标签： autofilter