Question : Code d'Excel VBA pour placer automatiquement un filtre de Tableau de pivot sur 2 valeurs spécifiques dans un domaine

J'essaye d'écrire le code d'un certain VBA pour faire placer un macro automatiquement un filtre de table de pivot pour égaler seulement 2 valeurs spécifiques pour ce champ et pour les régénérer.  Je ne pourrais pas figurer ceci dehors en regardant @ le code produit par le macro enregistreur.  Par exemple, le Tableau de pivot a un champ appelé la « unité d'entreprise ».  Dans ce domaine il y a environ 50 environ valeurs que je n'ai pas besoin d'être inclus dans la table.  Ainsi, nous allons actuellement manuellement dedans et clairement le filtre pour le champ d'unité d'entreprise et faisons descendre l'écran alors manuellement pour choisir les valeurs que nous avons besoin.  Nous dirons que les seules 2 valeurs que nous avons besoin montré dans ce domaine sont l'une ou l'autre égale à « Apple » ou « orange » et ces 2 valeurs ne changeront jamais.  Est-ce que quelqu'un peut m'aider avec la syntaxe appropriée pour à filtrer la table de pivot et puis à la régénérer ?  Faites-le moi savoir si je suis trop vague ou si vous avez besoin de plus d'informations.  

Thanks en tant que toujours pour votre aide ! class= de

Réponse : Code d'Excel VBA pour placer automatiquement un filtre de Tableau de pivot sur 2 valeurs spécifiques dans un domaine

Essayer ceci.  Vous devrez changer mon nom « ActivityEstimatesPivotTable » de table de pivot pour être le nom de votre table de pivot et vous devrez changer les deux critères de points dans le mon si rapport en ce que vous voulez.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 :

ApplyPivotFilter secondaire () Faible pItem comme PivotItem Avec ActiveSheet.PivotTables (« ActivityEstimatesPivotTable ») .PivotFields (_ « Statut ») Pour chaque pItem dans .PivotItems Si (pItem.Value <> « 4 - Resolved ») et _ (pItem.Value <> « vérifiés ») puis pItem.Visible = faux Finir si Prochain pItem Extrémité avec Sous-marin d'extrémité