Fjerne Delsummer fra mange pivottabell Fields

March 13  by Eliza

Shairal utvikler pivottabeller på en daglig basis, ved hjelp av ulike datakilder som for eksempel Excel lister, Access-tabeller og OLAP-data. En av de mest irriterende tingene han avtaler med er å undertrykke den automatiske delsum funksjon på hvert felt, ett om gangen. Dette kan være tidkrevende, avhengig av hvor mange felt han har brukt. Shairal lurte på om det kan være lettere å bruke en makro til å undertrykke delsummer for alle feltene på en gang.

Svaret er at det ville være lettere å bruke en makro. (Det er hva makroer for å ta vare på de kjedelige tingene du lei av.) I stedet for å finne opp hjulet, men det er en god løsning for å vurdere følgende kode, tilpasset fra Microsoft MVP Debra Daglisesh nettsted:

Sub NoSubtotals ()
'Slår av delsummer i pivottabell
'.PivotFields Kan endres til
'.RowFields eller .ColumnFields

Dim pt Som pivot
Dim pf Som PivotField

On Error Resume Next
For Hver pt I ActiveSheet.PivotTables
For Hver pf I pt.PivotFields
«Først setter indeks 1 (Automatic) til True,
'Slik at alle andre verdier er satt til False
pf.Subtotals (1) = sant
pf.Subtotals (1) = False
Neste pf
Neste pt
End Sub

Bare vise pivot du ønsker å påvirke, og deretter kjøre makroen. Delsummene for alle feltene i pivotundertrykkes på en gang. Den opprinnelige for denne koden er tilgjengelig her, ved Debra nettsted:

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

Nettstedet inneholder også en annen god informasjon for å jobbe med pivottabeller.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (3103) gjelder for Microsoft Excel 97, 2000, 2002, og 2003.