返回列表 上一主題 發帖

[發問] 以VBA寫的樞紐分析如何正確執行

evanx2008

帖子
4 
主題
1 
精華
0 
積分
5 
點名
0  
作業系統
windows 7 
軟體版本
7 
閱讀權限
10 
性別
男 
註冊時間
2017-4-4 
最後登錄
2018-5-14 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-4-29 15:51 | 只看該作者

[發問] 以VBA寫的樞紐分析如何正確執行

版上各位前輩大家好，小弟目前正在學習VBA，
目前以vba寫了一個可跑出樞紐分析表的程式，在逐步執行(F8)的時候都沒有發生問題。
但在正式執行的時候，卻無法正確的跑出"內含資料"的樞紐分析表（如附件DeptByMonth Sheet）。
多次修改後仍是一樣無法順利跑出明細（目前的明細是逐步執行下跑出的）。
另想以vba可自動按不同分頁名稱（如附件以部門別）跑出各自的明細，但此語法『PT.ShowPages PageField:="部門名稱"』似乎無法使用，不知道是何原因？
希望能請各位前輩協助幫忙，謝謝。

Expenses.rar (343.42 KB)
收藏 分享

evanx2008

帖子
4 
主題
1 
精華
0 
積分
5 
點名
0  
作業系統
windows 7 
軟體版本
7 
閱讀權限
10 
性別
男 
註冊時間
2017-4-4 
最後登錄
2018-5-14 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2017-5-20 20:19 | 只看該作者
自行回答一下，
有關問題一部分，是PT.ManualUpdate = True及PT.ManualUpdate = False影響了結果。將這兩行刪除後就正常了。
問題二部分，將ShowPages那條改為『ActiveSheet.PivotTables("MonthlyBudgetByDept").ShowPages PageField:="部門名稱"』就可解決了。

TOP

evanx2008

帖子
4 
主題
1 
精華
0 
積分
5 
點名
0  
作業系統
windows 7 
軟體版本
7 
閱讀權限
10 
性別
男 
註冊時間
2017-4-4 
最後登錄
2018-5-14 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2017-5-20 20:25 | 只看該作者
附上修改後檔案如下，再請大家指教。謝謝
Expenses2.zip (451 KB)

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題