Excel VBA使用CurrentPage

我在这里有一个代码

Private Sub Workbook_Open() Dim tDay As Date, pf As PivotField tDay = Date Set pf = Sheets("name of worksheet").PivotTables("pivot table name").PivotFields("insert the name of your filter here") pf.ClearAllFilters pf.CurrentPage = tDay End Sub 

它可以每次都更新filter列表，但是我想如何在filter列表中单击2个项目？

Answer 1

在你的情况下，“tDay”将是第一个值来过滤。 昏迷后可以添加更多的项目。

 Sub SamplePivotUpdate() Dim PI As PivotItem With ActiveSheet.PivotTables("your pivot name").PivotFields("your field name") .ClearAllFilters For Each PI In .PivotItems Select Case PI Case "1 value to filter", "2 value to filter": PI.Visible = True Case Else: PI.Visible = False End Select Next PI End With End Sub