複数のピボット テーブルを含むダッシュボードを作成していますが、解決できない問題に遭遇しました。別のワークシートに存在するピボット テーブルへの直接参照を使用してすべてのデータが表示されるプライマリ ワークシートがあります。コンボボックスを使用して、ピボット テーブルからデータをフィルター処理しています。ピボット テーブルを含むワークシートでは VBA コードをマクロで動作させることができましたが、顧客が実際にフィルターを選択するプライマリ ページでは動作させることができません。問題が .CurrentPage 変数にあることがわかります。これを変更して正しくフィルタリングする方法がわかりません。以下は私が持っているコードです。コンボボックスはワークシート(「ダッシュボード」)にあり、PvtTblsはワークシート(「ピボットテーブル」)にあります。誰でもこれを機能させる方法を教えてもらえますか、
Sub Year_Change()
'
' Year_Change Macro
'
Worksheets("Pivot Tables").PivotTables("Termination Index").PivotFields("Year").CurrentPage = (Range("I1"))
Worksheets("Pivot Tables").PivotTables("Quality Index Top").PivotFields("Year").CurrentPage = (Range("I1"))
End Sub
どうぞよろしくお願いいたします。