我在一张表上创建了几个下拉菜单,允许用户进行各种选择,这些选择会影响第二张表上显示的数据。根据所做的选择,可以有任意给定数量的空白记录。
因此,在第二张纸上,我添加了一个过滤器来删除任何空白记录。但是,此筛选器不会在每次进行新选择时刷新。我尝试在模块中使用以下代码:
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
似乎我只需要理解我使用的代码:(