自动刷新自动filter – VBA与否

无论何时将新数据input列C（这是A，B和D中的值的根variables），我一直在试图find一个代码来刷新自动filter（filter的标准在列A中）

任何帮助将非常感激。

这是我在其他线程中find的代码，但是我无法使其工作。

Private Sub Worksheet_Calculate() If Me.FilterMode = True Then With Application .EnableEvents = False .ScreenUpdating = False End With With ActiveWorkbook .CustomViews.Add ViewName:="Mine", RowColSettings:=True Me.AutoFilterMode = False .CustomViews("Mine").Show .CustomViews("Mine").Delete End With With Application .EnableEvents = True .ScreenUpdating = True End With End If End Sub 

Answer 1

此代码需要进入特定于包含您的AutoFilter的工作表的模块：

 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then ActiveSheet.AutoFilter.ApplyFilter End If End Sub 

需要注意的是，使用这种方法，您将只会看到AutoFilter的计算结果为true的行，所以实际上，您只能更改C中的数据，以便在filter刷新后删除当前存在的行。而不是相反。

希望是有道理的。 让我知道如果没有。