Método CubeField.CreatePivotFields (Excel)

O método CreatePivotFields permite que os usuários apliquem um filtro a PivotFields ainda não adicionado à Tabela Dinâmica criando o objeto PivotField correspondente.

Sintaxe

expressão. CreatePivotFields

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

Comentários

Em Tabelas Dinâmicas OLAP, os PivotFields não existem até que o CubeField correspondente seja adicionado à Tabela Dinâmica. O método CreatePivotFields permite que os usuários criem todos os PivotFields de um CubeField. 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.