Wie Pivot Table Logic Verwenden

Mitglieder-Login

InformationenVisual Basics Programmierung

Wie man mit SharePoint Von VBA Mitm… Das Visual Basic für Applikationen -Service können Sie mit SharePoint -Schnittstelle von Microsoft O
Wie man eine Datei byteweise in VB.… Wenn Sie VB.NET verwenden, um Desktop-Anwendungen zu erstellen , müssen Sie möglicherweise WebClient
Wie man ein Data Grid in Visual Bas… Ein Grid ist eine Komponente in Desktop-oder Web -Anwendungen verwendet, um Datensätze aus einer Dat
Wie DAO Recordsets aktualisieren Wissen, wie man Daten in Datenbanktabellen über Recordsets aktualisieren können Sie Zeit sparen , we

Programming

HOME

* Computer Wissen >> Programming >> Visual Basics Programmierung >> .

Wie Pivot Table Logic Verwenden

Wissen, wie man Logik in Pivot-Tabellen können Sie Zeit sparen , wenn Sie Änderungen an vielen Pivot-Tabellen vornehmen müssen. Pivot-Tabellen werden häufig in Tabellenkalkulationsprogrammen wie Microsoft Office Excel verwendet wird, um Daten zusammenzufassen. Sie können Visual Basic für Applikationen ( VBA) verwenden, um anzuwenden und auszuführen Programmlogik leicht . VBA ist eine Programmiersprache verwendet, um Routineaufgaben in Excel und andere Office-Anwendungen automatisieren. Things You
Microsoft Office Excel
brauchen anzeigen Weitere Anweisungen
1

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

Aktivieren Sie die Kontrollkästchen neben " FieldColumns " und "Information ". Wählen Sie die Registerkarte "Entwicklertools" und klicken Sie dann auf " Visual Basic ". Klicken Sie auf das Menü "Einfügen" und wählen
3

Geben Sie die folgende Prozedur , um eine neue zu erstellen "Module . ":

Private Sub executeTableLogic ()
< p> Press "Enter".
4

Geben Sie den folgenden Ihre Variablen zu erstellen :

Dim PTBL Wie PivotTable

Dim wrkSheet As Worksheet
< br > 5

Geben Sie den folgenden in einer Schleife durch alle Arbeitsblätter und die Suche nach Pivot-Tabellen in Ihrer Arbeitsmappe :

For Each wrkSheet in ActiveWorkbook.Worksheets

For Each PTBL in wrkSheet.PivotTables

Range (" A3: B6 " ) . Wählen
6

Geben Sie den folgenden in Pivot-Tabelle formatieren :

Ptbl.TableRange1

. Font.Bold = False

. Interior.ColorIndex = 0

End With
7

Geben Sie die folgende Logik und Highlight Zeilen hinzufügen, wenn Pivot-Tabelle Werte sind größer als 10 :

For Each c In Ptbl.DataBodyRange.Cells

Wenn c.Value > = 10 Dann

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

. Font.Bold = True

. Interior.ColorIndex = 6

End With End If

Weiter

Exit Sub

Weiter PTBL

Weiter wrkSheet
8

Presse "F5" auf Ihrer Prozedur auszuführen.