Comments on: Formatting Pivot Tables

By: Pauline

Pauline — Fri, 28 Oct 2011 13:58:00 +0000

question, I have a pivot table with time reflected in multiple columns, what I’d like to due is format it so that if there is no time in a cell is shows nothing right now its shoowing “(blank)”, it makes the report hard to see the information I’m trying to show….help anyone?

By: Terry31415

Terry31415 — Tue, 22 Feb 2011 23:24:00 +0000

Thanks! I love pivot tables, and go cross-eyed staring at numbers without formatting.

Doing what you've done has been on my long list of things to do, but I didn't know how to do what you did. I've added some tricks I know to your code to accommodate several different formats that I use most frequently.

Sub Format_PTFields()
'Macro goal: allow users to quickly choose the format to apply to pivot table fields

'Code modified from Dick Kusleika's code at:
'http://www.dailydoseofexcel.com/archives/2010/06/18/formatting-pivot-tables/

Dim pf As PivotField
Dim FormatChoice As String 'allows you to dynamically select the format
Dim QuestionString As String

On Error GoTo HandleErr

If TypeName(Selection) = "Range" Then Set pf = ActiveCell.PivotField

'Consolidates the question blurb to a variable
QuestionString = "Apply which format to this pivot field?" & vbCrLf & _
" '0': numbers with 0 digits after the decimals" & vbCrLf & _
" '1': numbers with 1 digit after the decimals" & vbCrLf & _
" 'd': dollars (no cents)" & vbCrLf & _
" 'c': dollars and cents"

'Ask the user what format to apply
FormatChoice = InputBox(QuestionString)

'based on the FormatChoice, format the selected pivot field
Select Case FormatChoice
Case 0 'shows numbers with 0 digits after the decimal
pf.NumberFormat = "#,##0"

Case 1 'shows numbers with 1 digit after the decimal
pf.NumberFormat = "#,##0.0"

Case "d" 'shows dollars (no cents)
pf.NumberFormat = "$#,##0"

Case "c" 'Shows dollars and cents
pf.NumberFormat = "$#,##0.00"
End Select

ExitSub:
Exit Sub

HandleErr:
If Err = 1004 Then
MsgBox ("This macro only does something useful if you are " & vbCrLf & _
"in a pivot table value field. Exiting macro.")
Else
MsgBox "Unexpected Error: " & Err & Err.Description
End If

GoTo ExitSub

End Sub

By: Auto Format PivotTables to Match Source Data (Power Tips Series) - Microsoft Excel 2010 - newgroup - Telligent

Wed, 24 Nov 2010 15:42:00 +0000

[...] few weeks ago Dick Kusleika posted a small but brilliant piece of code that auto formats the active pivot data field to a number format without having to muddle through [...]

By: Auto Format PivotTables to Match Source Data (Power Tips Series) - Microsoft Excel 2010 - newgroup - Telligent

Mon, 22 Nov 2010 18:49:00 +0000

[...] few weeks ago *** Kusleika posted a small but brilliant piece of code that auto formats the active pivot data field to a number format without having to muddle through [...]

By: Auto Format PivotTables to Match Source Data (Power Tips Series) - Microsoft Excel 2010 - Site Home - MSDN Blogs

Wed, 22 Sep 2010 01:31:00 +0000

[...] few weeks ago Dick Kusleika posted a small but brilliant piece of code that auto formats the active pivot data field to a number format without having to muddle through [...]

By: Auto Format PivotTables to Match Source Data » Bacon Bits:

Auto Format PivotTables to Match Source Data » Bacon Bits: — Wed, 04 Aug 2010 04:11:00 +0000

[...] few weeks ago Dick Kusleika posted a small but brilliant piece of code that auto formats the active pivot data field to a number format without having to muddle through [...]

By: Redge

Redge — Tue, 29 Jun 2010 14:48:00 +0000

Pivot tables are a great tool, however, one of my greatest frustrations is seeing them get discarded due to integrity issues. I can appreciate the formatting tools offered but was wondering if anyone else is having problems with their pivot tables being trashed by Excel.

I ended up writing a macro to re-build the pivot table on the fly but would like to think there is a more elegant solution.

I've gone through great lengths making sure my service packs are up to date and more ... with no success. My spreadsheet is password protected and I can only think that this may be the root of the problem. Any advice would be appreciated.

By the way, thanks for the great code snippets. They work wonders.

By: Kim

Kim — Fri, 25 Jun 2010 15:46:00 +0000

This is going to save so much time! Thank you!

By: Andries

Andries — Fri, 25 Jun 2010 15:23:00 +0000

Thanks Dick, I love your magic, I've been using my hotkey many times already this week :)
99 out of a 100 times I need to set my pivot field to the summary type and the same time, so I've made one further modification to set the function type. By setting the Function type first this will already trigger a default name starting with CountOf.. to be updated to SumOf.. before it is supplied as default value in the InputBox asking for a possible name change.

Sub MakeComma()
Dim pf As PivotField
If TypeName(Selection) = "Range" Then
On Error Resume Next
Set pf = ActiveCell.PivotField
On Error GoTo 0
If pf Is Nothing Then
Selection.NumberFormat = "#,##0_);[Red](#,##0)"
Else
pf.Function = xlSum
pf.NumberFormat = "#,##0_);[Red](#,##0)"
pf.Name = InputBox("Enter the new name for the field " & Chr(13) & "(Please note the field summary type is now SUM!)", "Pivot Field Rename", pf.Name)
End If
End If
End Sub

By: Chuck

Chuck — Thu, 24 Jun 2010 16:44:00 +0000

Once again, Dick has changed my life!

Great code!