View Single Post
  #9   Report Post  
Posted to microsoft.public.excel.setup
Russ Russ is offline
external usenet poster
 
Posts: 108
Default Removing "Sum of" from pivot tables

Thanks. I'll give this a whirl.

Cheers,

Russ

"Roger Govier" wrote:

Hi Russ

Since I seldom, if ever, use Autoformat, I was totally unaware that it would
remove the "Sum of".
Thanks for pointing that out.
The macro I posted should achieve what you want

You will note that the macro leaves a space in front of the field name.
That is quite deliberate, as you cannot have a PT field name the same as a
Source data field name in the Data area - the reason why Sum of and Count of
etc. are added in the first instance.
You can easily amend the code to deal with Count of etc., should you have
the need.
--
Regards
Roger Govier

"Russ" wrote in message
...
Thanks. I will give this a try.

To all, the Pivot table autoformat functionality in Excel 2003 would do
what
I'm discussing. For example, the autoformat would display "Expenses"
versus
"Sum of Expenses". There was 20 autoformats available in addition to
Classic
and None.

This is what I'm looking for. My users don't need to see "Sum of".
That's
obvious to them. These can be manually removed, but there should be a
global
functionality that was in Excel 2003.

"Roger Govier" wrote:

Hi Russ

I am totally unaware of any in built function in XL2003 that would do
this,
and there is no such function in XL2007.
However, the following code will achieve what you want.

Sub ChangePTName()
Dim pt As PivotTable, pf As PivotField, ws As Worksheet, i As Long
Application.ScreenUpdating = False
Set ws = ActiveSheet
For i = 1 To ws.PivotTables.Count
Set pt = ws.PivotTables(i)
pt.ManualUpdate = True
For Each pf In pt.DataFields
If pf.Function = xlSum Then
If Left(pf.Caption, 6) = "Sum of" Then
pf.Caption = Right(pf.Caption, Len(pf.Caption) - 6)
End If
End If
Next
pt.ManualUpdate = False
Next i
Application.ScreenUpdating = True
End Sub

Copy the Code above
Alt+F11 to invoke the VB Editor
InsertModule
Paste code into white pane that appears
Alt+F11 to return to Excel

To use
Select sheet containing the PT's
Alt+F8 to bring up Macros
Highlight ChangePTName
Run

--
Regards
Roger Govier

"Russ" wrote in message
...
In 2003, we had a formatting option that would globally remove €œSum Of€
from
the pivot table values. I like that feature. However, I cant seem to
find
the same thing in 2007. I can manually change them, but thats no fun,
especially if I have a bunch of values.

Does anyone have solution to this question?

Thanks