worksheet_change运行时错误

下面的代码适用于工作表上的数据透视表数据范围，当“SelectionChange”被激活时（每次点击），它将更新每个工作表上的所有“数据透视表3”。 它通常工作，除非我编辑它，然后重试

问题：如何使用“Worksheet_Change”？ 我总是得到一个运行时错误，无法弄清楚语法

Private Sub Worksheet_SelectionChange(ByVal Target As Range) For Each ws In ActiveWorkbook.Worksheets Call PivRefresh Next End Sub Sub PivRefresh() ActiveSheet.PivotTables("PivotTable3").PivotCache.refresh End Sub 

Answer 1

您每次都参考同一张表单 – 您需要如下所示的内容：

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) For Each ws In ActiveWorkbook.Worksheets ws.PivotTables("PivotTable3").PivotCache.Refresh Next End Sub 

不需要PivRefresh()子