Copy this programming code below to paste into the Pivot Table Cleanup macro described during my presentation:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
On Error Resume Next For Each Rng In Selection Rng.PivotField.Function = xlSum Rng.PivotField.NumberFormat = "#,##0;(#,##0)" Next For Each Rng In ActiveSheet.PivotTables(ActiveCell.PivotTable.Name).ColumnRange Rng.PivotField.Function = xlSum Rng.PivotField.NumberFormat = "#,##0;(#,##0)" Rng.Value = Replace(Rng.Value, "Sum of", "") Rng.HorizontalAlignment = xlRight Next On Error GoTo 0 |
