Visible Property : PivotTable « Excel « VBA / Excel / Access / Word

Visible Property

 
     Sub CompareMonths()
         Dim pvt As PivotTable
         Dim pvi As PivotItem
         Dim sMonth As String
         sMonth = "Jan"
         Set pvt = ActiveSheet.PivotTables(1)
         For Each pvi In pvt.PivotFields("Years").PivotItems
         If pvi.Name <> "2006" And pvi.Name <> "2007" Then
           pvi.Visible = False
         End If
         Next pvi
         pvt.PivotFields("Date").PivotItems(sMonth).Visible = True
         For Each pvi In pvt.PivotFields("Date").PivotItems
             If pvi.Name <> sMonth Then pvi.Visible = False
         Next pvi

     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.	Add data field to PivotTable
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