Wie mithilfe von Pivot-Tabelle-Logik

November 16

Zu wissen, wie Logik in Pivot-Tabellen verwenden können Sie Zeit sparen, wenn Sie viele Pivot-Tabellen ändern müssen. Pivot-Tabellen werden häufig in Tabellenkalkulationsprogramme wie Microsoft Office Excel verwendet, um Daten zusammenzufassen. Sie können Visual Basic für Applikationen (VBA) verwenden, anwenden und Programmierlogik leicht auszuführen. VBA ist eine Computer-Programmiersprache, die zum Automatisieren von Routineaufgaben in Excel und anderen Office-Anwendungen verwendet.

Anweisungen

1 Starten Sie Microsoft Office Excel, und geben Sie "FieldColumns" in "A1", "Information" in "B1", "Spalte1" in "A2", "15" in "B2", "Spalte2" in "A3," und "25" in "B3." Klicken Sie auf "A1," drücken Sie "Strg" und "A" klicken Sie im Menü "Einfügen" und wählen Sie dann "PivotTable." Drücken Sie "OK".

2 Aktivieren Sie die Kontrollkästchen neben den "FieldColumns" und "Informationen". Wählen Sie die Registerkarte "Entwicklertools" und dann auf "Visual Basic." Klicken Sie im Menü "Einfügen" und wählen Sie "Module".

3 Geben Sie Folgendes ein, um ein neues Verfahren zu erstellen:

Private Sub executeTableLogic()

Drücken Sie "Enter."

4 Geben Sie Folgendes ein, um Ihre Variablen erstellen:

Dim Ptbl als PivotTable

Dim WrkSheet als Arbeitsblatt

5 Durchlaufen Sie alle Arbeitsblätter und Suche für Pivot-Tabellen in Ihrer Arbeitsmappe Folgendes ein:

For Each wrkSheet In ActiveWorkbook.Worksheets

For Each Ptbl In wrkSheet.PivotTables

Range("A3:B6").Select6

Geben Sie Folgendes Format Pivot-Tabelle:

With Ptbl.TableRange1

.Font.Bold = False

.Interior.ColorIndex = 0

End With7

Geben Sie Folgendes ein, um Logik hinzufügen und Zeilen zu markieren, wenn Pivot Tabellenwerte größer als 10 sind:

For Each c In Ptbl.DataBodyRange.Cells

If c.Value >= 10 Then

With Ptbl.TableRange1.Rows(c.Row - Ptbl.TableRange1.Row + 1)

.Font.Bold = True

.Interior.ColorIndex = 6

End With

End If

Next

Exit Sub

Next Ptbl

Next wrkSheet8

Drücken Sie "F5", um die Prozedur auszuführen.