通过

CubeField.CreatePivotFields 方法 (Excel)

  • 项目

CreatePivotFields 方法使用户能够通过创建相应的 PivotField 对象，将筛选器应用于尚未添加到数据透视表的 PivotFields。

语法

表达式。CreatePivotFields

表达 一个代表 CubeField 对象的变量。

备注

在 OLAP 数据透视表中，在将相应的 CubeField 添加到数据透视表之前，透视字段不存在。 CreatePivotFields 方法使用户能够创建 CubeField 的所有 PivotFields。 用户还可以在将 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。