Метод CubeField.CreatePivotFields (Excel)

Метод CreatePivotFields позволяет пользователям применять фильтр к сводных полям, еще не добавленным в сводную таблицу, путем создания соответствующего объекта PivotField .

Синтаксис

expression. CreatePivotFields

выражение Переменная, представляющая объект CubeField .

Замечания

В сводных таблицах OLAP сводные поля не существуют до тех пор, пока соответствующее поле CubeField не будет добавлено в сводную таблицу. Метод CreatePivotFields позволяет пользователям создавать все сводные поля объекта CubeField. Пользователи также могут добавлять фильтры в сводные поля и задавать для них свойства перед добавлением 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 и обратная связь.