返回列表 上一主題 發帖

[發問] 樞紐-如何隱藏明細及群組

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-16 10:51 | 顯示全部帖子

[發問] 樞紐-如何隱藏明細及群組

我想要對樞紐做兩件事
第一件年月那邊要作群組每3各月作一個群組
第二件科目名稱那邊要做隱藏明細的動作
下面這各程式碼(網路上看到的)比較接近我第二各要的動作
但是我有試著改不知道要怎麼加才能改成我要的
  1. Sub Test()
  2.     Application.ScreenUpdating = False
  3.     Dim PTItem As PivotItem
  4.     For x = 1 To ActiveSheet.PivotTables("樞紐分析表2").PivotFields.Count
  5.         With ActiveSheet.PivotTables("樞紐分析表2").PivotFields(x)
  6.         For Each PTItem In .PivotItems
  7.             PTItem.ShowDetail = True
  8.         Next PTItem
  9.         End With
  10.     Next
  11. End Sub
複製代碼
Book1.rar (23.34 KB)
收藏 分享
字典兩各字 還真難理解

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
2#
發表於 2012-5-16 11:47 | 顯示全部帖子
回復 2# hugh0620


    大大
   我的資料很多
   附件只是其中一小部份
   而且常要變換資料所以需要vba來幫忙
字典兩各字 還真難理解

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
3#
發表於 2012-5-16 13:06 | 顯示全部帖子
回復 4# hugh0620

  大大
我的檔案2萬多筆
20幾m了
如果再用輔助欄可能就不妙
還是謝謝你分享
字典兩各字 還真難理解

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
4#
發表於 2012-5-17 10:43 | 顯示全部帖子
回復 6# hugh0620


    沒公式
   因為還有其他樞紐
   目前資料38000筆
   如果砍剩一個樞紐含資料來源也砍掉
   就剩8M
    這各應該是最精簡的情況下
   
   想要知道這方面的vba是因為常做這類的資料
   有時候是新檔不是舊資料擴充
   每次手動挺煩的
字典兩各字 還真難理解

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題