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

时间:2017-05-05 06:42:33

标签: excel vba excel-vba filter pivot

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

2 个答案:

答案 0 :(得分:2)

请尝试以下代码:

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

例如:

enter image description here

答案 1 :(得分:0)

尝试以下代码行

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