Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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 lignes 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. Y at-il des méthodes rapides pour nous d'ajouter tous les autres champs dans la zone de valeur avec un clic dans le tableau croisé dynamique?

Ajouter plusieurs champs dans la zone de valeur du tableau croisé dynamique avec le code VBA


flèche bleue droite bulle 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 vérifier rapidement tous les champs de la liste des champs de tableau croisé dynamique en un seul clic, mais avec le code VBA suivant, il peut vous aider à ajouter les champs restants à la zone Valeurs. S'il vous plaît faites comme suit:

1. Après avoir créé le tableau croisé dynamique, vous devez d'abord ajouter les champs de libellé de ligne selon vos besoins et laisser les champs de valeur dans le Choisir les champs à ajouter au rapport liste, voir capture d'écran: </ p>

doc-add-multiple-fields-1

2. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour Applications fenêtre.

3. Cliquez insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: Ajouter 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:

doc-add-multiple-fields-1

Note: Ce code VBA est appliqué à tous les tableaux croisés dynamiques de la feuille de calcul active.


Articles Liés:

Comment lister toutes les tables pivotantes forment un classeur?

Comment vérifier si un tableau croisé dynamique existe dans un classeur?



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Neville · 9 months ago
    Works like a charm. Thanks
  • To post as a guest, your comment is unpublished.
    Zeeshan · 1 years ago
    Hi.

    It gives me a compile error when I click on Run

    Please help
  • To post as a guest, your comment is unpublished.
    Shaun Sheys · 1 years ago
    Does "xlDataField" not work with PowerPivot? I've got the code below, which is used to add all measures to the pivot table. It works with "xlColumnField" and "xlRowField". Any ideas how to make this work?

    Sub AddAllFieldsValues()
    Dim pt As PivotTable
    Dim iCol As Long
    Dim iColEnd As Long

    Set pt = ActiveSheet.PivotTables(1)

    With pt

    iCol = 1
    iColEnd = .CubeFields.Count

    For iCol = 1 To iColEnd
    With .CubeFields(iCol)
    If .Orientation = xlHidden Then
    .Orientation = xlDataField
    End If
    End With
    Next iCol

    End With

    End Sub
  • To post as a guest, your comment is unpublished.
    Sajal · 1 years ago
    This is great! Thanks.
  • To post as a guest, your comment is unpublished.
    sourav · 1 years ago
    Its takiung value as count. how can i convert all count as Sum