Pivot Table Data Field Format Macro Modification

SRMPURCHASE

Board Regular
Joined
Dec 23, 2014
Messages
154
I use this macro to change all data fields to summarize value fields by: "Sum", how would I modify it to change all data fields to "Currency" Number format?

Sub SumAllValueFields()
Dim pt As PivotTable
Dim pf As PivotField
Dim WS As Worksheet

Set WS = ActiveSheet
Set pt = WS.PivotTables(1)
Application.ScreenUpdating = False

pt.ManualUpdate = True
For Each pf In pt.DataFields
pf.Function = xlSum
Next pf
pt.ManualUpdate = False

Application.ScreenUpdating = True
Set pf = Nothing
Set pt = Nothing
Set WS = Nothing
End Sub
 

Some videos you may like

Excel Facts

Back into an answer in Excel
Use Data, What-If Analysis, Goal Seek to find the correct input cell value to reach a desired result

Worf

Well-known Member
Joined
Oct 30, 2011
Messages
4,004
Hi

Code:
Sub SumAllValueFields()
Dim pt As PivotTable, pf As PivotField, WS As Worksheet
Set WS = ActiveSheet
Set pt = WS.PivotTables(1)
Application.ScreenUpdating = 0
pt.ManualUpdate = True
For Each pf In pt.DataFields
    pf.Function = xlSum
    pf.NumberFormat = "$#,##0.00"
Next
pt.ManualUpdate = 0
Application.ScreenUpdating = 1
Set pf = Nothing
Set pt = Nothing
Set WS = Nothing
End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,102,907
Messages
5,489,654
Members
407,703
Latest member
Chibuzo

This Week's Hot Topics

  • Timer in VBA - Stop, Start, Pause and Reset
    [CODE=vba][/CODE] Option Explicit Dim CmdStop As Boolean Dim Paused As Boolean Dim Start Dim TimerValue As Date Dim pausedTime As Date Sub...
  • how to updates multiple rows in muliselect listbox
    Hello everyone. I need help with below code. code is only chaning 1st row in mulitiselect list box. i know issue with code...
  • Delete Row from Table
    I am trying to delete a row from a table using VBA using a named range to find what I need to delete. My Range is finding the right cell. In the...
  • Assigning to a variable
    I have a for each block where I want to assign the value in column 5 of the found row to the variable Serv. [CODE=vba] For Each ws In...
  • Way to verify information
    Hi All, I don't know what to call this formula, and therefore can't search. I have a spreadsheet with information I want to reference...
  • Active Cell Address – Inactive Sheet
    How to use VBA to get the cell address of the active cell in an inactive worksheet and then place that cell address in a location on the current...
Top