vide hvordan man bruger logik i pivottabeller kan du spare tid, hvis du har brug for at foretage ændringer i mange pivottabeller . Pivottabeller anvendes ofte i regneark applikationer, såsom Microsoft Office Excel , til at opsummere data. Du kan bruge Visual Basic for Applications ( VBA ) for at anvende og udføre programmering logik nemt. VBA er en computer programmeringssprog, der anvendes til at automatisere rutineopgaver i Excel og andre Office-programmer. Ting du skal
Microsoft Office Excel
Vis Flere Instruktioner
1

Start Microsoft Office Excel , og skriv " FieldColumns " i " A1 ", " Information" i " B1 "," Kolonne1 "i" A2 "," 15 "i" B2 "," COLUMN2 "i" A3 "og" 25 "i" B3 ". Klik på " A1 ", tryk på " Ctrl" og "A ", klik på "Indsæt " menuen, og vælg derefter " Pivottabel ". Tryk på " OK".
2

Marker felterne ud for " FieldColumns " og " Information ". Vælg " Udvikler " fanen, og klik derefter på "Visual Basic ". Klik på " Indsæt" menuen og vælge
3

Skriv følgende for at oprette en ny procedure " Modul ". : Hej

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

Skriv følgende for at oprette dine variabler : Hej

Dim Ptbl Som pivottabel

Dim wrkSheet Som Regneark
< br > 5

Skriv følgende at sløjfe gennem alle regneark og søg efter pivottabeller i projektmappen : Hej

for Each wrkSheet i ActiveWorkbook.Worksheets

for Each Ptbl In wrkSheet.PivotTables < br >

Range (" A3 : B6 "). Vælg
6

Skriv følgende for at formatere pivottabel : Hej

Ptbl.TableRange1

. Font.Bold = False

. Interior.ColorIndex = 0

End With
7

Skriv følgende for at tilføje logik og fremhæve rækker , hvis pivot tabelværdier er større end 10 : Hej

For Each c In Ptbl.DataBodyRange.Cells
p Hvis c.Value > = 10 Så

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

. Font.Bold = Sand

. Interior.ColorIndex = 6 fotos

End With

End If < br >

Næste

Exit Sub

Næste Ptbl

Næste wrkSheet
8

Tryk på " F5 " for at køre din procedure . < br >