Excel-VBA - Pivot-Tabelle mit Mehreren Werten Filtern

Gibt es eine Möglichkeit in Excel-VBA zu ermöglichen, mehrere Filter in einer Pivot-Tabelle? Ich versuche, die filter-Werte für >0 UND für die Unteren Zehn items. In dem folgenden Beispielcode (generiert, indem Sie ein Makro aufzeichnen), der zweite filter Schritt überschreibt den ersten. Wenn mehrere Filter unterstützt wurden, es scheint, ich hätte nur hinzufügen müssen, um die Boolesche Logik, UND zwischen diesen beiden Ausdrücken, die man das Produkt der beiden Filter. Bitte machen Sie keine änderungen an dem code oder lassen Sie mich wissen, wenn dies nicht unterstützt. Danke!

Sub Multiple_Value_Filters()

    ActiveSheet.PivotTables("PivotTable1").PivotFields("Full Name").PivotFilters.Add _       
        Type:=xlValueIsGreaterThan, _
        DataField:=ActiveSheet.PivotTables("PivotTable1").PivotFields("Days"), _
        Value1:=0
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Full Name").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Full Name").PivotFilters.Add _
        Type:=xlBottomCount, _
        DataField:=ActiveSheet.PivotTables("PivotTable1").PivotFields("Days"), _
        Value1:=10
End Sub

InformationsquelleAutor T_Higgins | 2014-10-07

  1. 1

    Kann ich nicht wirklich sagen, was Ihre pivottable tun sollten, ohne zu sehen, einige Beispiel-Daten, aber ich glaube, Sie sollten in der Lage sein, das zu tun, was Sie möchten.
    Versuchen Herumspielen mit diesem:

    Sub Multiple_Value_Filters()
    Dim pvt As PivotTable
    Set pvt = ActiveSheet.PivotTables("PivotTable1")

    With pvt.PivotFields("Full Name")
        .ClearAllFilters
        .PivotFilters.Add Type:=xlValueIsGreaterThan, DataField:=pvt.PivotFields("Days"), Value1:=0
        .PivotFilters.Add Type:=xlBottomCount, DataField:=pvt.PivotFields("Days"), Value1:=10
    End With
End Sub

    Haben entdeckt, die PivotTable-Option die Möglichkeit, mehrere Filter, aber es hat nicht ganz so funktioniert, für mich, auch wenn es funktionieren würde wie ich es manuell getan hat. Warum auch immer Excel scheint nicht, wie den code. Diese Funktion funktioniert nur für Excel 2007 PivotTables und neuere aber ich bin mit mir von Excel 2010 so bin ich nicht sicher, was das Problem hier ist.

    Sub Multiple_Value_Filters()
    Dim pvt As PivotTable
    Set pvt = ActiveSheet.PivotTables("PivotTable1")

    With pvt.PivotFields("Full Name")
        .ClearAllFilters
        .AllowMultipleFilters = True ' This is the main key to getting this to work but mine still errors out whenever I add the 2nd filter. 
        .PivotFilters.Add Type:=xlValueIsGreaterThan, DataField:=pvt.PivotFields("Days"), Value1:=0
        .PivotFilters.Add Type:=xlBottomCount, DataField:=pvt.PivotFields("Days"), Value1:=10
    End With
End Sub
    Danke für die Antwort! Dieser code sieht ziemlich nahe. Aber wenn ich es laufen lasse, bekomme ich Laufzeitfehler 1004 Anwendungs-oder objektdefinierter Fehler. Wenn ich auf Debuggen, die zweite .PivotFilters Anweisung ist hervorgehoben. Und aus der Art, wie die Ergebnisse gefiltert werden, ich kann nur sagen die erste .PivotFilters Anweisung ausgeführt wurde. Vielen Dank für alle Vorschläge!
    Können Sie uns ein Beispiel von der Datenquelle Tabelle? Spalte Namen / Daten-Typen. Beispiel-Daten?
    Vielen Dank für die Hilfe! Hier ist ein link zum herunterladen der Datenquelle die Tabelle und sehen, wie der code arbeitet mit der Pivot-Tabelle. dropbox.com/s/bvfypep0xlfcdzw/Pivot%20Table%20Test.xlsm?dl=0

    InformationsquelleAutor Archias

  2. 0

    Ich weiß, diese Frage ist schon ziemlich alt, aber ich stolperte über es vor kurzem und es wurde nichts wirklich für mich arbeiten. Ich könnte nur einen filter für die pivot-Tabelle. Für die zweite oder Dritte bekam ich immer Laufzeitfehler. Allerdings fand ich eine einfache Lösung, die ich weiter unten beschreiben. Ich hoffe, dass die Leute kommen hier mit ähnlichen Problemen könnte es hilfreich sein.

    Schritt 1: Add Helper Spalten der Datenquelle mit einer neuen überschrift und einer beliebigen Konstanten Wert in jeder Zeile. (Benötigen Sie eine hilfsspalte pro extra filter. Wenn Sie möchten, verwenden Sie 3-Filter benötigst du zwei hilfsspalten)
    Excel-VBA - Pivot-Tabelle mit Mehreren Werten Filtern

    Schritt 2: Fügen Sie die Helpercolumn Attribute, um Ihre Zeile-Felder der pivot-Tabelle.
    Excel-VBA - Pivot-Tabelle mit Mehreren Werten Filtern

    Schritt 3: Wählen Sie das tabellarische layout, in dem alle Zeilen-Attribute werden in einer Zeile.
    Excel-VBA - Pivot-Tabelle mit Mehreren Werten Filtern

    Schritt 4: Jetzt können Sie verschiedene Filter anwenden, eine für jedes Attribut in der Zeile Feld. Diese erzielen Sie dasselbe Ergebnis, als wenn Sie mehrere Filter für die "Überschrift 1". Wenn Sie nicht wie die zusätzlichen Spalten können Sie auch nur verstecken Sie Weg.

    Schritt 5: Wenn Sie jetzt das anwenden, VBA, der code könnte so Aussehen:

    Dim pvt As PivotTable
Set pvt = ActiveSheet.PivotTables("PivotTable1")

ActiveSheet.PivotTables("PivotTable1").AllowMultipleFilters = True

With pvt.PivotFields("Heading 1")
    .ClearAllFilters
    .PivotFilters.Add2 Type:=xlValueIsGreaterThan, DataField:=ActiveSheet.PivotTables("PivotTable1").PivotFields("Sum of Heading 2"), Value1:=2
End With
With pvt.PivotFields("Help 1")
    .ClearAllFilters
    .PivotFilters.Add2 Type:=xlValueIsSmallerThan, DataField:=ActiveSheet.PivotTables("PivotTable1").PivotFields("Sum of Heading 2"), Value1:=11
End With
With pvt.PivotFields("Help 2")
    .ClearAllFilters
    .PivotFilters.Add2 Type:=xlValueIsGreaterThan, DataField:=ActiveSheet.PivotTables("PivotTable1").PivotFields("Sum of Heading 3"), Value1:=4
End With

    Ich hoffe, dass dies nützlich ist.

    InformationsquelleAutor Axel

Schreibe einen Kommentar