返回列表 上一主題 發帖

[發問] 樞紐分析表VBA~ActiveSheet.PivotTables相關問題

幼稚園飛天豬

帖子
32 
主題
14 
精華
0 
積分
52 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-5-31 
最後登錄
2020-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-5-9 22:52 | 只看該作者

[發問] 樞紐分析表VBA~ActiveSheet.PivotTables相關問題

With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("bh")
        .PivotItems("GF5587").Visible = False
        .PivotItems("GF5589").Visible = False
        .PivotItems("GF5590").Visible = False
        .PivotItems("GF5591").Visible = True
        .PivotItems("GF5592").Visible = False
    End With

以上是樞紐分析表bh欄位，將一些資料隱藏起來，只顯示自已想顯示的部分。
因為bh欄位的資料是很多種的值~我總不能1個1個寫        .PivotItems("GF5587").Visible = False
有沒有vba能作到，就是bh欄位所有的資料都False，然後在執行自已想要的資料為true
因為資料是變數，變成要先更新，然後再將所有的資料False再將需要的資料True
收藏 分享

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
2#
發表於 2011-5-11 23:26 | 只看該作者
這一個
ActiveSheet.PivotTables("樞紐分析表1").PivotFields("bh").count 嗎?

用for迴圈試試看
for i = 1 to.....
.PivotItems(i).Visible = False
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題