Astuces Excel
  1. Astuces Excel
  3. Power Pivot VBA filter gamme de reference des cellules
Intereting Posts
Problèmes de fonction Excel 2003 – ADDRESS () VBA: Multipliez un file (copyr) et renommez tous après la list Comment sélectionner une cellule A3 dans Excel en utilisant VB.net? Largeur de colonne personnalisée dans OpenXML vs MS Excel Ajouter une nouvelle feuille à un classur existant dans python Échec de la feuille de calcul Excel: des milliers de cellules deviennent "#NUM!" Simultanément Python for loop: continuez à l'itération suivante si la condition est remplie Spécification des adresses de cellules dans les arguments de formule Excel à l'aide de VBA Conversion des fuseaux horaires dans une feuille de travail Excel Colonne de search pour la valeur du text, si la valeur existe vérifie l'autre colonne pour le nombre de jours à countr de la date d'aujourd'hui? afficher les éléments listview dans la feuille Excel Comment supprimer le filter de la table dans Excel créé par la feuille de calcul – importer des données légères à partir d'une fonction DataTable. Définir le format de cellule openpyxl en devise alternative pour spécifier le nom de la feuille excel dans OledbCommand Appelez à une fonction indéfinie même si la fonction est sur une touche

Power Pivot VBA filter gamme de reference des cellules

J'essaie d'avoir ma reference de filter pivot de puissance à une gamme de valeurs dans plusieurs cellules. Par exemple, si mon filter a les valeurs A, B, C, DI souhaite qu'il examine les cellules A1: A10 pour voir quelles sont les valeurs. Si A, B existe en A1: A10, je souhaite que le filter affiche uniquement A et B (chaque cellule ne contient qu'une valeur par ex. A1: A, A2: B, A3: "", etc.)

Avec le code ci-dessous, je ne peux que faire reference à une valeur. 

Sub SelectKey() Dim key As Ssortingng key = Sheets("Sheet3").Range("R1").Value Sheets("data").PivotTables("PivotTable6").PivotFields("[v_cprs_dashboard_mesortingcs].[mesortingc_key].[mesortingc_key]").VisibleItemsList = Array("[v_cprs_dashboard_mesortingcs].[mesortingc_key].&[" & key & "]") End Sub

Cela fonctionne pour le tableau pivot régulier mais pas le powerpivot 

 With Worksheets("data").PivotTables("PivotTable6").PivotFields("mesortingc_key") .ClearAllFilters For Each PI In .PivotItems PI.Visible = WorksheetFunction.CountIf(Sheets("Sheet3").Range("range1"), PI.Name) > 0 Next PI End With

Il peut y avoir une meilleure façon de le faire, mais de mon expérience, la seule façon d'y parvenir est de faire passer les PivotItems dans PivotField et de vérifier les noms en fonction des critères. 

 Sub SelectKey() Dim key() As Ssortingng key = Split(Sheets("Sheet3").Range("R1").Value, ",") 'load comma separated ssortingng to array Dim pi As PivotItem For Each pi In Sheets("data").PivotTables("PivotTable6").PivotFields("[v_cprs_dashboard_mesortingcs].[mesortingc_key].[mesortingc_key]").PivotItems Dim i As Integer For i = LBound(key) To UBound(key) 'loop through array If pi.Name = key(i) Then pi.Visible = True Exit For Else pi.Visible = False End If Next Next End Sub