Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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