在用户input上过滤数据透视表
我需要在Excel中的input框中筛选用户input值中的数据透视表。 如何过滤我在LYear中获取的用户input值的数据透视表。 下面是我的代码不起作用
Sub LoopThroughPivotItems() Dim PT As PivotTable Dim PF As PivotField Dim PI As PivotItem Set PT = ActiveSheet.PivotTables("PivotTable4") 'Set PF = PT.PivotFields("2013") LYear = InputBox("Enter Year") 'PF.Value = LYear ActiveSheet.PivotTables("PivotTable4").PivotFields("2012").CurrentPage = LYear 'PF.AutoShowField = LYear 'PF.AutoShowField = "LYear" 'For Each PI In PF.PivotItems 'PI.Visible = True ' Error is occuring here 'Next PI If PI = PF.PivotItems Then PI.Visible = True Else: PI.Visible = False End If End Sub lYear = InputBox("Enter Year") ActiveSheet.PivotTables("PivotTable4").PivotFields("Year").PivotItems(lYear).Visible = True For Each pit In ActiveSheet.PivotTables("PivotTable1").PivotFields("Year").PivotItems If pit.Value <> lYear Then pit.Visible = False End If Next pit