助けてください。フィルターを使用してピボット テーブルを作成する必要があります。2 つのフィルターを選択できますが、3 つ目のフィルターを選択しようとするとエラーが発生し、マクロ レコードを使用してその方法を確認し、次のようにしました。
"[Product].[System Source].[System Source]").CurrentPageName = _
"[Product].[System Source].&[SIMHKG_HSB]"
ActiveSheet.PivotTables("PivotTable4").PivotFields( _
"[Product].[Shareclass].[Shareclass]").ClearAllFilters
ActiveSheet.PivotTables("PivotTable4").PivotFields( _
"[Product].[Shareclass].[Shareclass]").CurrentPageName = _
"[Product].[Shareclass].&[5]"
このコードでわかるように、Shareclass フィルターの値は 5 ですが、ピボットテーブル フィールドには数字ではなく名前が表示され、VBA では数字ではなく名前でフィルター処理したいのですが、どのように記述すればよいでしょうか? [5] の代わりに name を使用すると、エラーが発生するためです。簡単にするために、キューブをクリックしてフィルタリングし、ABCD と呼ばれるものを選択すると、VBA では番号が表示されますが、ABCD は表示されません。ID ではなく VBA で ABCD を使用する必要があります。
ありがとう