用于更新自动过滤器而无需重新应用的VBA代码

Question

使用VBA更新表时，有没有办法刷新自动过滤器而无需手动重新应用它？比方说，我在A1中有一个值作为表1第1列的过滤器。当我清除A1中的内容时，VBA是否可以自动清除第1列中的过滤器而不重新执行代码？或者，如果我更新A1的值，是否还有一种方法可以自动更新column1的过滤器？

我试过了

Sub Name()
ActiveSheet.AutoFilter.ApplyFilter
End Sub

和

Sub Name(ByVal Target As Range)
Sheets("Sheet1").AutoFilter.ApplyFilter
End Sub

和

Sub Name(ByVal Target As Range)
With ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1")
     .AutoFilter.ApplyFilter
End With
End Sub

来自各种渠道。我确保代码嵌入在与过滤器模块相同的工作表中，但我似乎仍然做错了...任何帮助都将不胜感激！

链接到来源：

https://www.extendoffice.com/documents/excel/4180-excel-refresh-filter-automatically.html https://superuser.com/questions/1004207/macro-for-reapply-filter-on-excel-2016 https://superuser.com/questions/249758/how-to-i-auto-refresh-an-excel-auto-filter-when-data-is-changed

Answer 1

查看使用依赖下拉列表。您可以在此处列出的URL底部下载示例文件。

http://www.contextures.com/xlDataVal02.html

另外，请从此处下载示例文件。

https://trumpexcel.com/dynamic-excel-filter/

最后，从下面的链接下载示例文件。

http://chandoo.org/wp/2015/08/22/filter-as-you-type-excel/