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