- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
2#
發表於 2011-2-22 22:08
| 只看該作者
以下為更新樞紐分析表的程式
請問一下是否可以再縮短一些？
因為公司的電腦很慢，希望可以有方法讓更新的 ...
ch3cooh777 發表於 2011-2-21 21:16 
一次過更新整個表的樞紐表,還是要一個一個樞紐表去更新
Dim pt As PivotTable
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
Next ws
如果數據比較多,你可以試試先把介面更新關掉,完成再補上
在所有程式碼前加
application.screenupdating=false
在所有程式碼後加
application.screenupdating=true |
|
發表於 2011-2-21 21:16
| 
