Excel VBA: Éléments clairs B. pivot table

Je suis nouveau à B. VBA...
J'essaie d'écrire une macro qui nettoie toute la sélection dans le filtre pivot table Avec nom "Product Family" Et seul l'élément sélectionnera le nom qui est contenu dans la cellule. "B33". je me réfère à pivot table Dans une feuille "sheet8" Et essayer de changer le calendrier sur "Dashboard".

Voici le code ...


Sub thisisalsotemp//

'

' thisisalsotemp Macro

'



'

 Sheets/"Dashboard"/.Select

 ActiveSheet.ChartObjects/"Chart 1"/.Activate

 Sheet8.PivotTables/"capbylp"/.PivotFields/"Product Family"/.PivotFields.ClearAllFilters

 With Sheet8.PivotTables/"capbylp"/.PivotFields/"Product Family"/

 .PivotItems/Range/"B33"//.Visible = True

 End With

End Sub


L'erreur est dans la ligne suivante:
Sheet8.PivotTables/"capbylp"/.PivotFields /"Produits de la famille"/ .PivotFields.ClearAllFilters

Message d'erreur:
L'objet ne prend pas en charge cette propriété ou cette méthode

@SeanCheshire: Merci pour l'aide. Je sens que c'est beaucoup plus proche de ce que je veux. Cependant, je ne pouvais pas le faire fonctionner. J'ai joué un peu avec lui et je suis de plus près. C'est ce que j'ai ...


Sub thisisalsotemp2//

 Sheets/"Dashboard"/.Select

 Sheet8.PivotTables/"capbylp"/.PivotFields/"Product Family"/ = Range/"B33"/

 End Sub


Erreur 1004 Personne: Impossible d'établir une propriété pivotfields classer pivottable

en ligne: Sheet8.PivotTables/"capbylp"/.PivotFields /"Produits de la famille"/ = gamme /"B33"/
2021-03-14 ajouter un commentaire
Partager ceci

Aucun résultat connexe trouvé

    Invité:

    Christine

    Confirmation de:

    Vous devez installer
    CurrentPage

    /Et vous n'avez pas besoin de le nettoyer en premier/.

    En utilisant ce qui est montré dans votre code, j'aurais quelque chose comme:


    Sheet8.PivotTables/"capbylp"/.PivotFields/"Product Family"/. _
    
 PivotFields/"MyPivotField"/.CurrentPage = Range/"B33"/.Value


    /Battu 2 Rangées pour la lecture

    /
    2021-03-14 0 0
    Partager ceci

    Agathe

    Confirmation de:

    C'est un peu connecté; Je voulais nettoyer le choix multiple chaque fois que l'utilisateur le fait. Apparemment, installation VisibleItemsList peut le faire.


    Private Sub Worksheet_SelectionChange/ByVal Target As Range/
    
 Dim xPF As PivotField
    
 Dim nms As Variant
    
 nms = Array/"Calculation", _
    
 "Rate Type", _
    
 "xx Hierarchy"/
    
 Set xPT = Application.ActiveSheet.PivotTables/1/
    
 For Each xPF In xPT.PageFields
    
 For Each nm In nms
    
 If xPF.Name Like "*" & nm & "*" Then
    
 If UBound/xPF.VisibleItemsList/ > 1 Then
    
 xPF.VisibleItemsList = Array/""/
    
 End If
    
 End If
    
 Next nm
    
 Next xPF
    
End Sub
    2021-03-14 0 0
    Partager ceci
    Pourquoi est-ce complexe? 0 réponses ont été bouchées

    Pour répondre aux questions, connectez-vous ou registre

    Copyright © 2022, All Rights Reserved