刷新数据透视表

Question

我正在尝试编写VBA脚本（MS Excel），该脚本允许我在刷新数据源时自动刷新数据透视表。我使用下面的代码在“ Sheet1”工作表中的数据透视表

中

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Worksheets("Sheet1").PivotTables("PivotTable1").RefreshTable
End Sub

仅当我在数据源中手动更改数据时，此代码才有效。但是，当数据源中的数据由于VLOOKUP功能而不是手动输入而发生更改时，我希望数据透视表刷新。

有人可能对此有解决方案吗？

谢谢。