[[20150930160221]]　『ピボットテーブルの値を自動更新するには？』（あやころ）　ページの最後に飛ぶ

『ピボットテーブルの値を自動更新するには？』（あやころ）

現在、受注管理表をピボットテーブルを活用して作成してます。
Sheet1にデータ入力し、Sheet2にピボットで集計表を作っています。
Sheet1のピボットの元データを修正し、Sheet2のワークシートをアクティブにした時、
Sheet2の集計表に自動で反映させたいと思い、下記のようなマクロを作成しました。

Private Sub Worksheets_activate(ByVal Sh As Object)
Worksheets("Sheet2").PivotTables("ピボットテーブル").PivotCache.Refresh
End Sub

しかし、Sheet2をアクティブにしてもSheet2の集計表は修正されていませんでした。

上記のどこをどのように直したら、自動で反映させることができますか？

教えてください。
よろしくお願いします。

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 シートモジュールに作成するのならば
 Private Sub Worksheet_Activate()
 プロシージャ。

 「ByVal Sh As Object」が出てくるのはThisWorkbookモジュールに
 Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 プロシージャとして設定する場合。

 多分シートモジュールに設定しているのだろうがプロシージャ名が自動起動のプロシージャ名と異なっているため実行されていない。
 プロシージャ名を
 Private Sub Worksheet_Activate()
 にしてみてくれ。
（ねむねむ） 2015/09/30(水) 16:17

Private Sub Worksheet_Activate()

 にしてみたら、自動で反映させることができました。
ねむねむさん、ありがとうございました。
（あやころ） 2015/10/01(木) 19:26

コメント返信：

[ 一覧(最新更新順) ]

[[20150930160221]] 『ピボットテーブルの値を自動更新するには？』（あやころ） ページの最後に飛ぶ

[[20150930160221]]　『ピボットテーブルの値を自動更新するには？』（あやころ）　ページの最後に飛ぶ