Klasse PivotFilter (Excel VBA)

Ein PivotFilter wird auf ein PivotField -Objekt angewendet.

Die wichtigste Prozedur der Klasse PivotFilter ist Delete

Set

Um eine PivotFilter -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim pvtfil as PivotFilter
Set pvtfil = ActiveCell.PivotTable.ActiveFilters(Index:=1)

Die folgenden Prozeduren können zum Festlegen der PivotFilter Klassenvariablen verwendet werden : PivotFilters.Item, PivotFilters.Add2, PivotField.PivotFilters und PivotTable.ActiveFilters

For Each

Hier ist ein Beispiel für die Verarbeitung der PivotFilter -Elemente in einer Sammlung

Dim pvtfil As PivotFilter
For Each pvtfil In ActiveCell.PivotTable.PivotFilters
	
Next pvtfil

Themas

Die folgenden Prozeduren in dieser Klasse wurden zusammengefasst und auf eine separate Themenseite beschrieben

Value with its procedures Value1 und Value2

Methoden

Dies ist die Hauptmethode der Klasse PivotFilter

Delete - Löscht den Filter und entfernt ihn aus den Filterauflistungen des PivotFields und der PivotTable.

ActiveCell.PivotTable.ActiveFilters(1).Delete

Eigenschaften

Active Gibt einen Wert zurück, mit dem angegeben wird, ob der angegebene PivotFilter aktiv ist.

Dim booActive As Boolean
booActive = ActiveCell.PivotTable.ActiveFilters(1).Active

DataCubeField Diese Eigenschaft gilt nur für OLAP-PivotTables und stellt das Wertfeld (PivotField im Wertebereich) bereit, das nach einem Wert Filter gefiltert wird.

Dim cbfDataCubeField As CubeField
Set cbfDataCubeField = ActiveCell.PivotTable.ActiveFilters(1).DataCubeField

DataField Diese Eigenschaft gilt nur für nicht-OLAP-PivotTables und stellt das Wertfeld (PivotField im Wertebereich) bereit, das nach einem Wert Filter gefiltert wird.

Dim pvtfDataField As PivotField
Set pvtfDataField = ActiveCell.PivotTable.ActiveFilters(1).DataField

Description Stellt eine optionale Beschreibung des PivotFilter-Objekts bereit.

Dim strDescription As String
strDescription = ActiveCell.PivotTable.ActiveFilters(1).Description

FilterType Gibt den Typ des anzuwendenden Filters an.

Dim xpfFilterType As XlPivotFilterType
xpfFilterType = ActiveCell.PivotTable.ActiveFilters(1).FilterType

IsMemberPropertyFilter Gibt an, ob der Beschriftungsfilter auf den PivotItem-Beschriftungen einer Elementeigenschaft des Felds oder auf den PivotItem-Beschriftungen des PivotFields direkt basiert.

Dim booIsMemberPropertyFilter As Boolean
booIsMemberPropertyFilter = ActiveCell.PivotTable.ActiveFilters(1).IsMemberPropertyFilter

MemberPropertyField Diese Eigenschaft gibt das PivotField der Elementeigenschaft an, auf dem der Beschriftungsfilter basiert.

Dim pvtfMemberPropertyField As PivotField
Set pvtfMemberPropertyField = ActiveCell.PivotTable.ActiveFilters(1).MemberPropertyField

Name Diese Eigenschaft bietet die Möglichkeit, Filter als Referenz zu benennen.

Dim strName As String
strName = ActiveCell.PivotTable.ActiveFilters(1).Name

Order Gibt die Auswertungsreihenfolge des Filters unter allen Wertefiltern an, die auf die gesamte PivotTable angewendet wurden.

ActiveCell.PivotTable.ActiveFilters(1).Order =

Parent Gibt das übergeordnete Objekt für das angegebene PivotFilter-Objekt zurück.

Dim objParent As Object
Set objParent = ActiveCell.PivotTable.ActiveFilters(1).Parent

PivotField Gibt das PivotField an, auf das der Filter angewendet wird.

Dim pvtfPivotField As PivotField
Set pvtfPivotField = ActiveCell.PivotTable.ActiveFilters(1).PivotField

WholeDayFilter Legt die Filterungs Semantik für Datumsfilter fest oder ruft Sie ab.

ActiveCell.PivotTable.ActiveFilters(1).WholeDayFilter = True

PivotFilters.Count Gibt die Anzahl der Elemente der PivotFilters-Auflistung zurück.

Dim lngCount As Long
lngCount = ActiveCell.PivotTable.ActiveFilters.Count

PivotFilters.Item Gibt ein bestimmtes Element des PivotFilters-Auflistungsobjekts anhand seiner Position in der Auflistung zurück.

Dim pvtfilItem As PivotFilter
Set pvtfilItem = ActiveCell.PivotTable.ActiveFilters(Index:=1)

PivotFilters.Parent Gibt das übergeordnete Objekt für das angegebene PivotFilters-Objekt zurück.

Dim objParent As Object
Set objParent = ActiveCell.PivotTable.ActiveFilters.Parent