Hvordan bruke Pivot Table Logic

Å vite hvordan du bruker logikk i pivottabeller kan du spare tid hvis du trenger å gjøre endringer i mange pivottabeller. Pivot tabeller brukes ofte i regnearkprogrammer, for eksempel Microsoft Office Excel, for å oppsummere data. Du kan bruke Visual Basic for Applications (VBA) til å søke og utføre programmering logikk lett. VBA er et programmeringsspråk som brukes til å automatisere rutinemessige oppgaver i Excel og andre Office-programmer.

Bruksanvisning

1 Start Microsoft Office Excel, og skriv "FieldColumns" i "A1", "Informasjon" i "B1", "COLUMN1" i "A2", "15" i "B2", "COLUMN2" i "A3" og "25 "i" B3 ". Klikk "A1", trykker du "Ctrl" og "A", klikk på "Sett inn" -menyen, og velg deretter "pivottabell". Trykk "OK".

2 Merk av i boksene ved siden av "FieldColumns" og "Informasjon". Velg "Utvikler" fanen, og klikk deretter på "Visual Basic." Klikk på "Insert" -menyen, og velg "Module".

3 Skriv inn følgende for å opprette en ny prosedyre:

Private Sub executeTableLogic ()

Trykk enter."

4 Skriv inn følgende for å lage dine variabler:

Dim Ptbl Som pivottabell

Dim wrkSheet Som regneark

5 Skriv inn følgende å sløyfe gjennom alle regnearkene og søke etter pivottabeller i arbeidsboken:

For Each wrkSheet In ActiveWorkbook.Worksheets

For hver Ptbl I wrkSheet.PivotTables

Range ( "A3: B6") Velg.

6 Skriv inn følgende i format pivot tabell:

With Ptbl.TableRange1

.Font.Bold = False

.Interior.ColorIndex = 0

End With

7 Skriv inn følgende for å legge til logikk og markere rader hvis pivottabellverdiene er større enn 10:

For Each c In Ptbl.DataBodyRange.Cells

Hvis c.Value> = 10 Da

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

.Font.Bold = True

.Interior.ColorIndex = 6

End With

Slutt om

neste

Exit Sub

Neste Ptbl

Neste wrkSheet

8 Trykk "F5" for å kjøre prosedyren.