Wie mithilfe von Pivot-Tabelle-Logik
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").Select
6
Geben Sie Folgendes Format Pivot-Tabelle:
With Ptbl.TableRange1
.Font.Bold = False
.Interior.ColorIndex = 0
End With
7
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 wrkSheet
8
Drücken Sie "F5", um die Prozedur auszuführen.