Automatische Sortierreihenfolge für Excel 2013-Pivot-Tabellen

2

Ich habe eine Arbeitsmappe mit mehreren Pivot-Tabellen, die einen Prozentsatz der Einhaltung basierend auf Datenzeilen berechnen. Jedes Mal, wenn ich die Datenzeilen aktualisiere und die Pivot-Tabellen aktualisiere, ändert sich der Prozentsatz der Konformität. Ich möchte, dass die Pivot-Tabellen vom kleinsten% zum größten% sortiert werden. Derzeit habe ich bei jeder Aktualisierung der Arbeitsmappe auf jede Pivot-Tabelle geklickt und sie in die richtige Reihenfolge gebracht.

Gibt es eine Möglichkeit, die Pivot-Tabellen so einzustellen, dass sie IMMER den Wert von A bis Z sortieren, wenn sie aktualisiert werden?

Crainiac
quelle

Antworten:

0

Wenn Sie den Aktualisierungs- und Sortierungsprozess für alle Pivot-Tabellen automatisieren möchten , kann der unten stehende VBA-Code Sie dabei unterstützen , wann immer Sie Daten eingeben oder aktualisieren.

    Private Sub Worksheet_Change(ByVal Target As Range)
     Dim Wrkst As Excel.Worksheet
     Dim PvtBL As Excel.PivotTable

     For Each Wrkst In Application.ActiveWorkbook.Worksheets
        For Each pvtBL In Wrkst.PivotTables
          PvtBL.RefreshTable
            ActiveWorkbook.PivotTables().PivotFields("Sales").AutoSort _
                xlAscending, ActiveSheet.PivotTables(). _
                PivotColumnAxis.PivotLines(1)
        Next pvtBL
    Next Wrkst
 End Sub

NB: Da der Feldname nicht angegeben ist, gehe ich davon aus, dass der Verkauf als zu sortierendes Feld dient. Sie können ihn nach Bedarf ändern.

Hoffe das hilft dir.

Rajesh S
quelle