If you have created a pivot table already in your worksheet. Now if you want to add multiple data fields to it. Snapshot-
.
Here is the code-
Sub add_multiple_data_fields()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim pt As PivotTable
Dim pf As PivotField
Dim pfNew As PivotField
Dim strSource As String
Dim strFormula As String
' make sure the pivot data source should include all the data field columns in it
Set pt = Sheets(1).PivotTables("AKOUL")
' remove all the data fields
For Each pf In pt.DataFields
pf.Orientation = xlHidden
Next pf
' adding multiple data fields
For i = 3 To 8
pt.AddDataField pt.PivotFields(Sheets(2).Cells(1, i).Value), "Sum of " & Sheets(2).Cells(1, i).Value, xlSum
Next i
Set pt = Nothing
Set pf = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Download Excel Macro File
Subscribe to:
Post Comments (Atom)
Import data from SQL
Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...
-
If you want to add a new menu on mouse right click "Workbook Navigation showing you the list of all open workbooks and worksheets in ea...
-
Macro to Export Range in Json Format Option Explicit Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoex...
No comments:
Post a Comment