从另一个工作表更改下拉选择时自动刷新过滤器

编程问答 2022-05-16

问题描述

我在一张纸上创建了一些下拉菜单，允许用户进行各种选择，这些选择会影响第二张纸上显示的数据。根据所做的选择，可以有任意给定数量的空白记录。

所以在第二张纸上我添加了一个过滤器来删除任何空白记录。但是，每次进行新选择时，此过滤器都不会刷新。我尝试在模块中使用以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)

    ActiveSheet.AutoFilter.ApplyFilter

End Sub

但是，当我在工作表 1 上进行新选择时，过滤器不会刷新。我相信这是因为我没有手动更改工作表 2 中的任何单元格，因此代码不会发现数据的变化。

有什么想法吗？

解决方法

我通过如下修改代码找到了解决方案：

Private Sub Worksheet_Change(ByVal Target As Range)

    ActiveSheet.AutoFilter.ApplyFilter
    Sheets("Sheet 2").AutoFilter.ApplyFilter

End Sub

似乎我只需要理解我使用的代码:)

excelexcelexcel-2016vba