Add data field to PivotTable : PivotTable « Excel « VBA / Excel / Access / Word

Add data field to PivotTable

     Sub AddDataField()
         Dim pvt As PivotTable
         Set pvt = ActiveSheet.PivotTables(1)
         With pvt.PivotFields("Revenue")
             .Orientation = xlDataField
             .NumberFormat = "0"
         End With
         With pvt.DataFields("Sum of NumberSold")
             .Position = 2
             .Function = xlCount
             .NumberFormat = "0"
         End With
     End Sub


Related examples in the same category

1.Create Pivot Table From database
2.Modifying Pivot Tables
3.Creating a PivotTable Report
4.PivotTables Collection
5.Assign a value to the Orientation property of the PivotField object, as shown here:
6.Redefines the layout of the fields in the existing Table, apart from the data field
7.Visible Property
8.add calculated items to a field using the Add method of the CalculatedItems collection
9.remove the CalculatedItem by deleting it from either the CalculatedItems collection or the PivotItems collection of the PivotField:
10.adds a PivotTable based on the data from an Access database