过滤以在数据透视表报告filter中显示两个特定选项

这感觉像一个愚蠢的问题,但将所有我的谷歌search,我无法弄清楚。 我正在写几个VBA脚本来帮助快速筛选一些数据透视表。

假设我有一个包含一些标准销售数据的数据透视表。 其中一个“报告filter”字段是“状态”。

我已经想出了如何显示一个单一的状态:

Dim pt As PivotTable Set pt = Sheets("Sales").PivotTables("SalesPivot") pt.ClearAllFilters pt.PivotFields("State").CurrentPage = "Oregon" 

以上运作良好。 但是,除了显示“俄勒冈州”和“加利福尼亚州”之外,我该怎么做呢? (另外,如果有更好的方法来做到这一点,我都是耳朵)

手动,我会首先检查“select多个项目”框,然后取消选中“(全部)”选项select无,然后滚动选项来查找和检查“加利福尼亚州”和“俄勒冈州”,然后单击确定。

谢谢!

对于这个问题的未来发现者,这就是我所做的:

 Sub SelectMultiplePivotFilter() Dim pt As PivotTable Dim pf As PivotField Set pt = Sheets("Sales").PivotTables("SalesPivot") Set pf = pt.PivotFields("State") pt.ClearAllFilters For Each pi In pf.PivotItems If pi.Value = "California" Or pi.Value = "Oregon" Then pi.Visible = True Else pi.Visible = False End If Next pi End Sub