列範囲1に基づいてピボットテーブルフィルタを更新するためのVBAコード

Question

ピボットテーブルフィルタ用のVBAコードを作成しようとしており、それについて研究しています。 「名前」（H）という名前の列があり、「名前」でフィルタリングされたピボット・テーブルがあります。私は、同じ名前のVBAコードを記述しようとしています。ここで、コードは "Name"（H）という列のセル値に基づいて1を1ずつ更新します。ピボットフィルターを単一のセルに割り当てるコードを書くことはできますが、名前1の全範囲には割り当てません。

最終的な目標は "ピボット値フィルタに応じてテーブルを変更し、これらのテーブルをPowerpointに貼り付けます。 1ピボットフィルターの値ごとに1つのスライド。 名前列には：x、y、z これらの値をピボット値フィルタ内に1つずつ入れ、ピボット値フィルタに割り当てるためにテーブルをpowerpoint.1st xに挿入すると、テーブルはxに対して肯定的に変化しますこのテーブルをスライドとしてPowerpointに入れ、yと同じようにします。 この問題を解決するには大きな助けになるでしょう。

予め

Answer 1

のおかげでは、これは、ピボットテーブルフィルター」 サブ最終（にのみ単一のセル値を割り当て、同一のコードである）

Dim PT As PivotTable 
Dim pvtfield As PivotField 

Set PT = Sheets("Sheet1").PivotTables("PivotTable2") 
Set pvtfield = PT.PivotFields("Name") 
pvtfield.CurrentPage = CStr(Range("H2").Value) 

Set PT = Nothing 

End Subの