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.