excel - 运行过滤器后自动运行 VBA 代码

Question

我编写了一段代码，对员工及其资格进行分类。为了淘汰具有不需要资格的员工，我对标题为其资格类别的每一列应用了过滤器。

我编写了 VBA 代码，以便使重复的名称和限定不可见，以便于定位。但是，我无法让代码自动运行。

目前，我可以让代码运行的唯一方法是将其设置为

Private Sub Worksheet_Change(ByVal Target As Range)，然后更改任意单元格的值。

我在以下位置找到了我认为正确的解决方案:

http://www.ozgrid.com/forum/showthread.php?t=72860

但我无法理解它。

有没有一种方法可以运行此代码，而无需在过滤器运行后选择和取消选择单元格？

Answer 1

我的文章的要点Trapping a change to a filtered list with VBA

文章中有更多详细信息和示例文件，要点总结如下

1. 在 A1 中添加一个“虚拟”工作表，其中包含一个 SUBTOTAL 公式，指向主工作表上正在过滤的范围。
2. Worksheet_Calculate() 事件被添加到“虚拟”工作表中，当过滤器更改时 SUBTOTAL 公式更新时，此事件将触发。

如果希望以手动方式运行工作簿计算，则需要接下来的两个设置

1. 添加 Workbook_Open 事件，将除“Dummy”之外的所有工作表的 EnableCalculation 属性设置为 False。
2. 在计算模式下运行工作簿