2017-09-15 2 views
0

Ich versuche, eine bestimmte Pivot-Tabellen-Filterung mit VBA zu automatisieren. Ich bin mir nicht sicher, wie man mit VBA "Report Filter" (siehe angehängter Screenshot) hinzufügen kann.Pivot-Tabellenbericht Filter VBA

den Prozess zu automatisieren, ich den Code bekam für das Hinzufügen von Zeilen, Spalten und Werten, aber kann nicht scheinen, um den Code für Berichtsfilter zu finden.

Können Sie mir bitte helfen, für diese mit dem Code aus.

Filter

Report Filter

+1

Welchen Code haben Sie ausprobiert und was war das Problem? – braX

+2

besten Weg, um zu überprüfen, wie man etwas - Aufnahme eines Makros und Sie sehen – avb

+0

@braX Ich brauche einen Code für Pivot-Tabelle, um Berichtsfilter hinzuzufügen. Z.B. Wir können Pivot-Tabellen manuell hinzufügen und 4 grundlegende Eigenschaften, nämlich Filter, Spalten, Zeilen und Summenwerte, anwenden/einfügen (siehe angehängtes Bild). Um den Prozess zu automatisieren, habe ich den Code zum Hinzufügen von Zeilen, Spalten und Summenwerten erhalten, kann aber den Code für den Berichtsfilter nicht finden. Kann mir bitte helfen? –

Antwort

0

Dank @avb für den Vorschlag. Die Aufnahme des Makros half. Der Code zum Hinzufügen eines Pivot-Berichtsfilters ist dies.

Sub pivotReportFilter(ptUse As PivotTable, fName As String) 

    With ptUse.PivotFields(fName) 
     .Orientation = xlPageField 
     .Position = 1 
    End With 

    End Sub