Comment ajouter plusieurs champs dans le tableau croisé dynamique?
Lorsque nous créons un tableau croisé dynamique, nous devons faire glisser les champs dans les étiquettes de ligne ou les valeurs manuellement un par un. Si nous avons une longue liste de champs, nous pouvons ajouter rapidement quelques étiquettes de ligne, mais les champs restants doivent être ajoutés à la zone Valeur. Existe-t-il des méthodes rapides pour ajouter tous les autres champs dans la zone Valeur en un seul clic dans le tableau croisé dynamique?
Ajouter plusieurs champs dans la zone de valeur du tableau croisé dynamique avec le code VBA
Ajouter plusieurs champs dans la zone de valeur du tableau croisé dynamique avec le code VBA
Malheureusement, il n'y a pas de case à cocher pour que nous puissions vérifier rapidement tous les champs de la liste des champs du tableau croisé dynamique en un seul clic, mais, avec le code VBA suivant, il peut vous aider à ajouter les champs restants à la zone Valeurs à la fois. Veuillez procéder comme suit:
1. Après avoir créé le tableau croisé dynamique, vous devez tout d'abord ajouter les champs d'étiquette de ligne selon vos besoins et laisser les champs de valeur dans le Choisissez les champs à ajouter au rapport liste, voir capture d'écran: </ p>
2. Maintenez le ALT + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.
3Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.
Code VBA: ajoutez plusieurs champs dans la zone Valeur des tableaux croisés dynamiques dans la feuille de calcul active
Sub AddAllFieldsValues()
'Update 20141112
Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
With pt.PivotFields(I)
If .Orientation = 0 Then .Orientation = xlDataField
End With
Next
Next
End Sub
4. Puis appuyez F5 clé pour exécuter ce code, tous les champs restants ont été ajoutés à la zone Valeurs en même temps, voir capture d'écran:
Notes: Ce code VBA est appliqué à tous les tableaux croisés dynamiques de la feuille de calcul active.
Articles Liés:
Comment répertorier tous les tableaux croisés dynamiques d'un classeur?
Comment vérifier si un tableau croisé dynamique existe dans un classeur?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
