worksheet_change実行時エラー

Question

以下のコードは、 "SelectionChange"がアクティブになったとき（各クリック）、各ワークシートのすべての "PivotTable3"を更新するシート上のピボットテーブルデータ範囲で機能します。これは通常、編集して再試行しない限り動作します。

質問：これに「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

構文を毎回把握することはできません - あなたが何か必要があります。PivRefresh()サブ用

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

不要に