用VBA隱藏整個數據透視表Makro

-1

我只需要一個宏，它隱藏了整個數據透視表。數據透視表名稱= PivotTable4用VBA隱藏整個數據透視表Makro

由於提前

格爾茨

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

我想這一點，陸續

來源

2015-02-05 Furkan

你有什麼你已經試過了？ – 2015-02-05 12:59:03

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 – Furkan 2015-02-05 13:03:52

那麼，代碼有什麼問題？結果是什麼？ – EngJon 2015-02-05 13:20:32

類似的東西，刪除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

來源

2015-02-05 15:28:38

用VBA隱藏整個數據透視表Makro

回答

相關問題