[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ピボットテーブルの値を自動更新するには?』(あやころ)
現在、受注管理表をピボットテーブルを活用して作成してます。
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
にしてみたら、自動で反映させることができました。 ねむねむさん、ありがとうございました。 (あやころ) 2015/10/01(木) 19:26
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.