Veta hur man använder logik i pivottabeller kan spara tid om du behöver göra ändringar i många pivottabeller . Pivot-tabeller används ofta i kalkylprogram , till exempel Microsoft Office Excel , för att sammanfatta data . Du kan använda Visual Basic for Applications ( VBA ) för att tillämpa och verkställa programmeringslogik lätt . VBA är en dator programmeringsspråk som används för att automatisera rutinuppgifter i Excel och andra Office-program . Saker du behöver
Microsoft Office Excel
Visa fler instruktioner
1
Starta Microsoft Office Excel , och skriv " FieldColumns " i " A1 ", " Information " i " B1, " " Kolumn1 " i " A2 "," 15 " i " B2 "," Kolumn2 " i " A3 "och" 25 " i " B3 ". Klicka på " A1 ", tryck på " Ctrl " och " A ", klicka på " Infoga " -menyn och välj sedan " Pivottabell . " Tryck på " OK . "
2
Markera rutorna bredvid " FieldColumns " och " Information . " Välj " Utvecklare " fliken , och klicka sedan på " Visual Basic . " Klicka på " Infoga " -menyn och välj Addera 3
Skriv följande för att skapa ett nytt förfarande " Modul . " :
Private Sub executeTableLogic ( ) katalog
Tryck " Enter ".
4
Skriv följande för att skapa dina variabler :
Dim Ptbl som pivottabell
Dim wrkSheet som arbetsblad
5
Skriv följande för att loopa igenom alla kalkylblad och söka efter pivottabeller i arbetsboken :
för varje wrkSheet i ActiveWorkbook.Worksheets
för varje Ptbl i wrkSheet.PivotTables
Range ( " A3 : B6 " ) . Välj
6
Skriv följande för att formatera pivottabellen :
Ptbl.TableRange1
. Font.Bold = False
. Interior.ColorIndex = 0
End With
7
Skriv följande för att lägga till logik och markera rader om pivot tabellvärden är större än 10 :
För varje c I Ptbl.DataBodyRange.Cells
p Om c.Value > = 10 Sen
Ptbl.TableRange1.Rows ( c.Row - Ptbl.TableRange1.Row + 1 ) katalog
. Font.Bold = Sant
. Interior.ColorIndex = 6
End With
End If
Nästa
Exit Sub
Nästa Ptbl
Nästa wrkSheet
8
Tryck " F5 " för att köra proceduren .
Addera ditt
