excel - 使用vba过滤数据透视表中的行标签

Question

我搜索了很多论坛，但仍然没有找到答案:

我正在尝试过滤从 1 到 10 的行标签，以便只显示 5 和 10。

我编写了以下代码，但它产生错误 1004“无法获取 PivotTable 类的 PivotFields 属性”。

ActiveWorkbook.Sheets("SideCalculations-KPIs").Activate
With ActiveSheet.PivotTables("PivotTable1").PivotFields("ToStateId")
    .ClearAllFilters
    .PivotItems("5").Visible = True
    .PivotItems("10").Visible = True
End With

提前致谢

Answer 1

错误中明确提到，PivotField的名称不正确。

可能是透视字段的名称已从“ToStateId”更改。为了找到合适的名称，请运行以下代码:

For each pField in ActiveSheet.PivotTables("PivotTable1").PivotFields
     Debug.Print pField.Name
Next pField

转到 VBA 编辑器，按 Ctrl+G，它将打开即时窗口。它将显示所有可用的数据透视字段。然后请使用正确的数据透视字段并尝试。