Question

我只需要一个宏，它隐藏了整个数据透视表。数据透视表名称= PivotTable4

先谢谢

格尔茨

With ActiveSheet.PivotTables("PivotTable4").PivotFields("Average of Server Respond Time")
For x = 3 To .PivotItems.Count
    If Left(.PivotItems(x).Value, 1) = "1" Then
         .PivotItems(x).Visible = False
    End If
Next x
End With

我试过这个，删除了一列又一列

Answer 1

类似的东西：

Dim PT As PivotTable
Set PT = ActiveSheet.PivotTables(1)

'hide whole rows
PT.TableRange2.EntireRow.Hidden = True
'or hide whole columns
PT.TableRang2.EntireColumn.hidden = true
'or clear
PT.TableRang2.clear

使用VBA Makro隐藏整个数据透视表

1 个答案: