Å vite hvordan du skal bruke logikk i pivot tabeller kan spare tid hvis du trenger å gjøre endringer i mange pivot tabeller. Pivot tabeller brukes ofte i regneark- programmer, for eksempel Microsoft Office Excel , for å oppsummere data . Du kan bruke Visual Basic for Applications ( VBA ) til å søke og gjennomføre programmeringslogikk enkelt. VBA er et programmeringsspråk som brukes til å automatisere rutineoppgaver i Excel og andre Office-programmer . Du trenger
Microsoft Office Excel
Vis flere instruksjoner
en

start Microsoft Office Excel , og type " FieldColumns " i " A1 ", "Informasjon" in " B1 "," kolonne 1 " i " A2 "," 15 " i " B2 "," kolonne 2 " i " A3 "og" 25 " i " B3 ". Klikk " A1 ", trykker du " Ctrl" og "A ", klikk på "Insert "-menyen , og velg deretter " pivottabell . " Trykk "OK".
2

Sjekk boksene ved siden av " FieldColumns " og " informasjon". Velg " Utvikler " fanen , og klikk deretter på " Visual Basic. " Klikk på " Insert"-menyen , og velg
3

Skriv inn følgende for å opprette en ny prosedyre " Module ". : En

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

Skriv inn følgende for å opprette variabler : en

Dim Ptbl Som pivottabell

Dim wrkSheet Som regneark

5

Skriv inn følgende å sløyfe gjennom alle regnearkene og søk etter pivot tabeller i arbeidsboken : en

Hver wrkSheet i ActiveWorkbook.Worksheets

Hver Ptbl i wrkSheet.PivotTables

Range (" A3 : B6 ") . Velg
6

Skriv inn følgende for å formatere pivot tabell:
p Med Ptbl.TableRange1

. Font.Bold = False

. Interior.ColorIndex = 0

End With
7

Skriv inn følgende for å legge til logikk og høydepunkt rader hvis pivottabeller verdier er større enn 10 : en

For hver c I Ptbl.DataBodyRange.Cells
p Hvis c.Value > = 10 Da
p Med Ptbl.TableRange1.Rows ( c.Row - Ptbl.TableRange1.Row + 1 )

. Font.Bold = sant

. Interior.ColorIndex = 6

End With

End If

Neste

Exit Sub

Neste Ptbl

Neste wrkSheet
8

Trykk " F5 " for å kjøre prosedyren .