CubeField.CreatePivotFields メソッド (Excel)

CreatePivotFields メソッドでは、対応する PivotField オブジェクトの作成により、ピボットテーブルに追加されていないピボットフィールドにフィルターを適用できます。

構文

式。CreatePivotFields

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

注釈

OLAP ピボットテーブルでは、対応する CubeField がピボットテーブルに追加されるまで、ピボットフィールドは存在しません。 CreatePivotFields メソッドを使用すると、ユーザーは CubeField のすべてのピボットフィールドを作成できます。 ユーザーはピボットフィールドにフィルターを追加したり、キューブフィールドがピボットテーブルに追加される前にこれらにプロパティを設定することもできます。

例

Sub FilterFieldBeforeAddingItToPivotTable() 
 ActiveSheet.PivotTables("PivotTable1").CubeFields("[Date].[Fiscal]").CreatePivotFields 
 
 ActiveSheet.PivotTables("PivotTable1").PivotFields("[Date].[Fiscal].[Fiscal Year]").VisibleItemsList = 
 
 "[Date].[Fiscal].[Fiscal Semester]").VisibleItemsList = Array("") 
 ActiveSheet.PivotTables("PivotTable1").PivotFields( _ 
 "[Date].[Fiscal].[Fiscal Quarter]").VisibleItemsList = Array("") 
 
 ActiveSheet.PivotTables("PivotTable1").PivotFields("[Date].[Fiscal].[Month]"). _ 
 VisibleItemsList = Array("") 
 
 ActiveSheet.PivotTables("PivotTable1").PivotFields("[Date].[Fiscal].[Date]"). _ 
 VisibleItemsList = Array("") 
End Sub

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

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