VBA数据透视表：添加过滤器

Question

使用VBA代码，我创建了一个Pivot表，然后添加了行，列，然后添加了求和值。 现在我需要在列上添加过滤器。 您能告诉我如何在此专栏中添加过滤器。

Answer 1

请尝试以下代码：

Sub Makró2()
    With ActiveSheet.PivotTables("Kimutatás1").PivotFields("a")
        .PivotItems("asd").Visible = False
        .PivotItems("hj").Visible = False
    End With
End Sub

例如：

Answer 2

尝试下面的代码行

With ActiveSheet.PivotTables("PivotTable Name").PivotFields("Column Name").Orientation = xlPageField.Position = 1