題 VBA在多個表上更改腳本


通過這個論壇,我找到了一種方法,在Excel工作表中的數據發生變化後,使用此VBA腳本自動刷新表中的自動過濾器:

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

但實際上,每當工作表上的任何數據發生變化時,我都希望更新兩個表,這是否可行,是否可以幫助我編寫正確的代碼?


2
2018-05-02 16:17


起源




答案:


是的,只需根據其他表的名稱和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

或者以任何其他方式組合它(取決於您的數據結構)。


2
2018-05-02 16:26