Méthode CubeField.CreatePivotFields (Excel)

La méthode CreatePivotFields permet aux utilisateurs d’appliquer un filtre aux champs croisés dynamiques qui n’ont pas encore été ajoutés au tableau croisé dynamique en créant l’objet PivotField correspondant.

Syntaxe

expression. CreatePivotFields

Expression Variable qui représente un objet CubeField .

Remarques

Dans les tableaux croisés dynamiques OLAP, les champs croisés dynamiques n’existent pas tant que le CubeField correspondant n’est pas ajouté au tableau croisé dynamique. La méthode CreatePivotFields permet aux utilisateurs de créer tous les champs croisés dynamiques d’un CubeField. Les utilisateurs peuvent également ajouter des filtres aux champs de tableau croisé dynamique et définir des propriétés dessus avant l'ajout de l'objet CubeField au tableau croisé dynamique.

Exemple

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.