Passer au contenu principal

Comment modifier plusieurs paramètres de champ dans le tableau croisé dynamique?

Lorsque vous créez un tableau croisé dynamique dans une feuille de calcul, après avoir fait glisser les champs vers le Valeurs liste dans le Liste des champs de tableau croisé dynamique, vous pouvez avoir tout de même que vous avez fonction comme illustré ci-dessous. Mais maintenant, tu veux le Somme de fonction pour remplacer le que vous avez de la fonction à la fois, comment pourriez-vous changer le calcul de plusieurs champs de tableau croisé dynamique à la fois dans Excel?

doc-change-field-setting-1

Modifier les paramètres de champ dans le tableau croisé dynamique manuellement un par un

Modifier plusieurs paramètres de champ dans le tableau croisé dynamique avec le code VBA


flèche bleue bulle droite Modifier les paramètres de champ dans le tableau croisé dynamique manuellement un par un

Dans Excel, vous pouvez modifier le calcul des paramètres de champ en modifiant la fonction une par une dans le Paramètres du champ de valeur dialogue, procédez comme suit:

1. Sélectionnez un champ dans la zone Valeurs pour lequel vous souhaitez modifier la fonction récapitulative dans le tableau croisé dynamique, puis cliquez avec le bouton droit pour choisir Paramètres du champ de valeur, voir capture d'écran:

doc-change-field-setting-1

2. Puis dans le Paramètres du champ de valeur boîte de dialogue, sélectionnez un type de calcul que vous souhaitez utiliser sous le Résumer la valeur par onglet, voir capture d'écran:

doc-change-field-setting-1

3. Et puis cliquez OK pour fermer cette boîte de dialogue, et vous pouvez voir que votre fonction Count a été changée en fonction Sum, voir capture d'écran:

doc-change-field-setting-1

4. Répétez les étapes ci-dessus pour modifier les paramètres de calcul des autres champs un par un.

Remarque: Vous pouvez également modifier les paramètres de champ en cliquant avec le bouton droit sur une cellule de champ et en choisissant Résumer les valeurs par et sélectionnez un calcul dont vous avez besoin dans les menus contextuels.

doc-change-field-setting-1


flèche bleue bulle droite Modifier plusieurs paramètres de champ dans le tableau croisé dynamique avec le code VBA

La méthode ci-dessus sera longue et fastidieuse s'il y a beaucoup de calculs de champ à modifier, ici, je peux vous présenter un code pour modifier plusieurs paramètres de fichiers en même temps.

1. Cliquez sur n'importe quelle cellule de votre tableau croisé dynamique.

2. Maintenez le ALT + F11 clés, et il ouvre 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: modifier plusieurs paramètres de champ dans le tableau croisé dynamique

Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
   .ManualUpdate = True
   For Each xPF In .DataFields
      With xPF
         .Function = xlSum
         .NumberFormat = "#,##0"
      End With
   Next
   .ManualUpdate = False
End With
End Sub

4. Puis appuyez F5 clé pour exécuter ce code, et tous les paramètres de champ dans votre tableau croisé dynamique sélectionné ont été convertis en votre calcul de besoin à la fois, voir les captures d'écran:

doc-change-field-setting-1
-1
doc-change-field-setting-6

Notes: Dans le code ci-dessus, vous pouvez modifier la fonction Somme en tout autre calcul, tel que Moyenne, Max, Min comme vous le souhaitez. Il vous suffit de modifier la somme dans ces scripts: Sous-ensemble public SetDataFieldsToSum () et .Fonction = xlSum à d'autres fonctions.

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

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...

Description


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!
Comments (29)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Brilliant, thanks, this worked perfectly and save much time
This comment was minimized by the moderator on the site
Muchas gracias por el aporte
This comment was minimized by the moderator on the site
Hi!

I'm wondering how to use the code for Count Numbers instead of count, I've tried changing the code to Count Numbers and CountNumbers but netiher works..

Help is appreciated :)
This comment was minimized by the moderator on the site
Hello, Sara,
Sorry for that your Count Numbers field can't be changed in the code, so, you need to change the field one by one with the first method in this article.
Thank you!
This comment was minimized by the moderator on the site
Thank you so much, this VBA code works amazing. 
This comment was minimized by the moderator on the site
I got the error" Unable to get the PivotTable property of the range class". Do you know hoe can I fix this?
This comment was minimized by the moderator on the site
I got this error, "Unable to get the Pivot Table property of the Range class". Do you know how I can fix this?
This comment was minimized by the moderator on the site
Thank you so much!!! That is sooo helpful and brilliant! Saved me soooo much time
This comment was minimized by the moderator on the site
Thank you so much for the VBA code, I LOVE it!
This comment was minimized by the moderator on the site
Thank you. The code worked beautifully and saved me a lot of wasted time and energy!
This comment was minimized by the moderator on the site
I've used the VBA solution with great success in the past, but it doesn't work with the data model. Do you know if there is a solution for that?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations