VBA執行速度

如何增加EXCEL VBA執行速度?
小弟每日利用EXCEL網路查詢更新資料進行運算
隔一斷時間有新IDEA  運算公式就會跟者修正
開始初期更新資料僅須2分鐘
經修改統計運算公式(主要是區域欄資料統計每日更新時會在欄資料插入列所以統計範圍隨日期增加)
修改後  更新資料僅須12分鐘
最近又修改僅增加一些統計運算公式
修改後  更新資料僅須80分鐘....................................#@!@#$%^&

將程式分為二，執行速度正常部份拆出為程式A，將更新時會發生停滯現象之後程式碼拆出為程式B
測試:
1.先執行A再執行B  結果還是一樣慢

2.僅執行B 則不會有停滯現象
為何僅執行B不會有停滯現象而先執行A後再執行B 就會有停滯現象(停在統計欄資料插入列 )
為何會如此!!!!!!!!!!!!
如何改進速度??????????????????

樓主熱帖

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

4^#

發表於 2011-5-1 22:15 | 只看該作者

影響速度的可能原因就太多了
這樣問哪猜得著？

TOP

yen_yin_c

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: Win XP
軟體版本: 2003
閱讀權限: 10
性別: 男
來自: Kaohsiung
註冊時間: 2011-5-1
最後登錄: 2011-5-4

3^#

發表於 2011-5-1 17:43 | 只看該作者

關掉CalculationAutomatic後，僅針對想要計算的sheet計算
ActiveSheet.Calculate
可以取得想要的更新，且可以避免其他sheets過多連結拖累演算速度

Mike

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2010-8-24 22:21 | 只看該作者

回復 1# chwqk

方向有很多...可以發一下代碼上來看看嗎?

有關速度, 有沒有先把自動計算停掉?

application.Calculation=xlCalculationManual
application.screenupdate=false

運行後
application.Calculation=xlCalculationAutomatic
application.screenupdate=true

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP