Fjernelse Subtotaler fra mange pivottabel Fields

02/15/2013 by admin

Shairal udvikler pivottabeller på daglig basis, ved hjælp af forskellige datakilder som Excel lister, Access tabeller og OLAP-data. En af de mest irriterende ting han behandler undertrykker den automatiske subtotal funktion på hvert felt, en ad gangen. Det kan være tidskrævende afhængig af antallet af felter, han brugte. Shairal spekulerede på, om det kan være lettere at bruge en makro til at undertrykke Delsummerne for alle områder på én gang.

Svaret er, at det ville være lettere at bruge en makro. (Det er, hvad makroer er for-at tage sig af de kedelige ting du bliver træt af.) Snarere end genopfinde hjulet, men en god løsning er at overveje følgende kode, tilpasset fra Microsoft MVP Debra Daglisesh websted:

Sub NoSubtotals ()
'Slukker subtotaler i pivottabel
».PivotFields Kunne ændres til
».RowFields eller .ColumnFields

Dim pt Som pivottabel
Dim pf Som PivotField

Ved fejl Resume Next
For hver pt I ActiveSheet.PivotTables
For hver pf I pt.PivotFields
»For det første sæt indeks 1 (automatisk) til Sand,
', Så alle andre værdier er sat til False
pf.Subtotals (1) = true
pf.Subtotals (1) = false
Næste pf
Næste pt
End Sub

Bare vise pivottabel du ønsker at påvirke, og derefter køre makroen. Delsummerne for alle felter i pivottabellen undertrykkes på en gang. Originalen til denne kode findes her, på Debra site:

http://www.contextures.com/xlPivot03.html#Subtotals

Sitet indeholder også nogle andre gode oplysninger for at arbejde med pivottabeller.

ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (3103) gælder for Microsoft Excel 97, 2000, 2002, og 2003.


Relaterede Artikler

© 2018 - zajacperrone.com| Contact us: webmaster# zajacperrone.com