Ako používať kontingenčnej tabuľky Logic

Vedieť , ako používať logiku v kontingenčnej tabuľky vám môže ušetriť čas, ak potrebujete vykonať zmeny v mnohých kontingenčnej tabuľky . Kontingenčnej tabuľky sú často používané v tabuľkových aplikáciách , ako je napríklad aplikácia Microsoft Office Excel , sumarizovať dáta . Môžete použiť Visual Basic for Applications ( VBA ) ľahko aplikovať a realizovať programové logiky . VBA je programovací jazyk použiť na automatizáciu rutinných úloh v programe Excel a ďalších aplikáciách balíka Office . Veci , ktoré budete potrebovať v Microsoft Office Excel
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Office Excel , a zadajte " FieldColumns " v " A1 " , "Informácie " v " B1 , " " Sloupec1 " v " A2 " , " 15 " v " B2 " , " Sloupec2 " v " A3 " a " 25 " na " B3 " . Kliknite na " A1 " , stlačte " Ctrl " a " , " kliknite na " Vložiť " menu , a potom zvoľte " kontingenčnej tabuľky . " Stlačte tlačidlo " OK " .
2

Začiarknite políčka vedľa " FieldColumns " a "Informácie " . Vyberte kartu " Vývojár " , a potom kliknite na tlačidlo " Visual Basic " . " . Modul " Kliknite na " Vložiť " menu , a vyberte
3

Zadajte nasledujúci vytvoriť nový postup :

Private Sub executeTableLogic ( )

Stlačte tlačidlo " Enter " .
4

Zadajte nasledujúce vytvárať premenné :

Dim Ptbl ako kontingenčné

Dim wrkSheet As List

5

zadajte nasledujúce prechádzať všetky listy a hľadať pre kontingenčnej tabuľky v zošite :

pre každú wrkSheet v ActiveWorkbook.Worksheets

každý Ptbl v wrkSheet.PivotTables

Range ( " A3 : B6 " ) . Vyberte
6

zadajte nasledovný formát kontingenčnej tabuľky :

S Ptbl.TableRange1

. Font.Bold = False

. Interior.ColorIndex = 0

End With
7

Zadajte nasledujúce pridať logiku a označte riadky , ak sú hodnoty kontingenčnej tabuľky sú väčšie ako 10 :

For Each c V Ptbl.DataBodyRange.Cells

Ak c.Value > = 10 Potom

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

. Font.Bold = TRUE

. Interior.ColorIndex = 6

End With

End If

Ďalšie

Exit Sub

Ďalšie Ptbl

Ďalšie wrkSheet
8

Stlačte " F5 " pre spustenie svojho postupu .

• Predchádzajúca strana: Ako odstrániť hudobný prehrávač kód z MySpace 
• Ďalšia strana: Ako pridať ODBC VB.Net Express