CubeField.CreatePivotFields method (Excel) (Método CubeField.CreatePivotFields [Excel])

O método CreatePivotFields permite que os utilizadores apliquem um filtro a Campos Dinâmicos que ainda não foram adicionados à Tabela Dinâmica ao criar o objeto PivotField correspondente.

Sintaxe

expressão. CreatePivotFields

expressão Uma variável que representa um objeto CubeField .

Comentários

Nas Tabelas Dinâmicas OLAP, os Campos Dinâmicos não existem até que o Campo Cubo correspondente seja adicionado à Tabela Dinâmica. O método CreatePivotFields permite que os utilizadores criem todos os Campos Dinâmicos de um Campo Cubo. Os usuários também podem adicionar filtros aos campos dinâmicos e definirem propriedades neles antes que o CubeField seja adicionado à tabela dinâmica.

Exemplo

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.