次の方法で共有

PivotField.CurrentPageList プロパティ (Excel)

  • [アーティクル]

ピボットテーブル レポートの複数項目ページ フィールドに含まれる項目の一覧に対応する文字列の配列を設定または返します。 値の取得と設定が可能なバリアント型 (Variant) の値です。

構文

式。CurrentPageList

式PivotField オブジェクトを表す変数。

注釈

実行時エラーを回避するには、データ ソースを OLAP ソースにする必要があります。選択するフィールドは現在、Page 位置にあり、 EnableMultiplePageItems プロパティは True に設定する必要があります。

例

次の使用例は、ピボットテーブル レポートの Food 項目を一覧表示するページ フィールドを設定します。 ピボットテーブルがアクティブ ワークシート上にあるものとします。

Sub UseCurrentPageList() 
 
 Dim pvtTable As PivotTable 
 Dim pvtField As PivotField 
 
 Set pvtTable = ActiveSheet.PivotTables(1) 
 Set pvtField = pvtTable.PivotFields("[Product]") 
 
 ' To avoid run-time errors set the following property to True. 
 pvtTable.CubeFields("[Product]").EnableMultiplePageItems = True 
 
 ' Set the page list to "Food". 
 pvtField.CurrentPageList = "[Product].[All Products].[Food]" 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。