☰

VBA 在多个表上更改脚本

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba
VBA 在多个表上更改脚本

通过这个论坛，我找到了一种方法，可以在 Excel 工作表中的数据发生变化后自动刷新表中的自动过滤器，使用这个 VBA 脚本：

Private Sub Worksheet_Change(ByVal Target As Range)
    With ActiveWorkbook.Worksheets("Notes").ListObjects("Table1")
         .AutoFilter.ApplyFilter
    End With
End Sub

但实际上我希望每次工作表上的任何数据发生变化时都更新两个表，这可能吗？有人可以帮我写出正确的代码吗？

答案1

是的，只需根据其他表的名称和 WS 添加它即可，例如：

Private Sub Worksheet_Change(ByVal Target As Range)
    With ActiveWorkbook.Worksheets("Notes").ListObjects("Table1")
         .AutoFilter.ApplyFilter
    End With
    With ActiveWorkbook.Worksheets("Notes").ListObjects("Table2")
         .AutoFilter.ApplyFilter
    End With
End Sub

或者以任何其他方式组合它（取决于您的数据结构）。

相关内容