EXCELのマクロにて

質問

下のようなデータベースがあります。

No　　値1　　値2
10　　　3　　　2
8　　　2　　　4
6　　　2 　　 6　
3　　　5　　　3
8　　　7　　　5

このようなデータベースからピボットグラフを作成しているんですが、データベースに上端でフィルターをかけNo列にて特定の値を選んだときにそれに対してピボットグラフもフィルターで選んだNoになるようなマクロは組めませんか？
ちなみにピボットグラフにはページにNoを、データに値1・値2の合計を表示させています。
マクロに変数（？）を設定すると出来るらしいのですが記述がわからないのです。

回答No.1

neKo_deux

> 記述がわからないのです。

「マクロの記録」を利用しましょう。
～.AutoFilter Field:=1, Criteria1:="10"
～.PivotLayout.PivotFields("No").CurrentPage = "10"
のようになると思います。

> 上端でフィルターをかけNo列にて特定の値を選んだときに

「特定のボタンが押されたときに」であれば、ButtonCkickのイベント、
「セルの内容が変更されたときに」であれば、Worksheet_Changeのイベントで取得可能ですが、
残念ながらフィルタの条件が変更された場合にはイベントを取得する事が出来ないと思います。

対処案としては、
ボタンを押す。
フィルタの条件を選択するダイアログを表示。
指示された内容に従い、フィルタ、ピボットグラフを更新。
とかをすれば出来そうですが、かなり面倒かも。

ボタンを押したときに、ピボットグラフをフィルタの内容に同期する程度なら何とかなる気もしますが。

--
以下、小言です。

マルチポストはやめた方が良いと思います。

はじめの一歩 : マルチポストは失礼な行為です。
http://www.ippo.ne.jp/netiquette/common/04question/multipost.htm

…ですが、質問したけど期待した回答が無いという事は良くあります。
個人的にですが、マルチポストで困るのは情報の集約が出来ないという点です。
例えば、今回あんまり関係ないですが、OSは？Excelのバージョンは？などという事が書かれていないと、別々の回答者が同じ事を確認するのは労力の浪費です。
他の質問での他の回答者の指摘を質問者が理解できない場合でも、また別の回答者が見れば、より良い回答を思いつくかも知れません。

こういう場合、
・あらかじめ、別の場所で質問している旨を断る。
・別の質問で確認した詳細な状況、得られた情報、経緯、URLを提示する。
・同じサイト内の別カテゴリに複数質問するのなら、回答して欲しい場所のURLなどを提示し、誘導する。
などの配慮が欲しいです。