Kuinka käyttää Pivot Table Logic

Tietäen kuinka käyttää logiikkaa pivot-taulukot voi säästää aikaa, jos sinun täytyy tehdä muutoksia moniin pivot-taulukot. Pivot taulukot käytetään usein taulukkolaskenta sovelluksissa, kuten Microsoft Office Excel, tiivistää tietoja. Voit käyttää Visual Basic for Applications (VBA) soveltaa ja ohjelmakäskyjen logiikka helposti. VBA on tietokone ohjelmointikieli voidaan automatisoida rutiinitehtäviä Excelissä ja muissa Office-sovelluksissa.

Ohjeet

1 Käynnistä Microsoft Office Excel, ja kirjoita "FieldColumns" in "A1", "Information" "B1", "COLUMN1" in "A2", "15" in "B2", "COLUMN2" in "A3" ja "25 "in" B3. " Klikkaa "A1", paina "Ctrl" ja "," klikkaa "Lisää" -valikosta ja valitse "PivotTable." Paina "OK".

2 Tarkista laatikot vieressä "FieldColumns" ja "Information". Valitse "Developer" -välilehti, ja napsauta sitten "Visual Basic." Napsauta "Lisää" -valikosta ja valitse "Module".

3 Kirjoita seuraava luoda uusi menettely:

Private Sub executeTableLogic ()

Paina "Enter".

4 Kirjoita seuraava luoda muuttujia:

Dim Ptbl Kuten PivotTable

Dim wrkSheet Kuten laskentataulukko

5 Kirjoita seuraava silmukka läpi kaikki laskentataulukot ja etsi pivot-taulukot työkirjan:

For Each wrkSheet In ActiveWorkbook.Worksheets

For Each Ptbl In wrkSheet.PivotTables

Range("A3:B6").Select 6

Kirjoita seuraavat muodossa pivot-taulukko:

With Ptbl.TableRange1

.Font.Bold = False

.Interior.ColorIndex = 0

End With 7

Kirjoita seuraava lisätä logiikkaa ja korosta rivejä pivot-taulukon arvot ovat suurempia kuin 10:

For Each c In Ptbl.DataBodyRange.Cells

If c.Value >= 10 Then

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

.Font.Bold = True

.Interior.ColorIndex = 6

End With

End If

Next

Exit Sub

Next Ptbl

Next wrkSheet 8

Paina "F5" ajaa menettelyä.

Aiheeseen liittyviä artikkeleita