[發問] 如何才能,計算工作表,等待計算結東後,再進行下一步

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-3-15 22:30 | 顯示全部帖子

[發問] 如何才能,計算工作表,等待計算結東後,再進行下一步

本帖最後由 blue2263 於 2014-3-15 22:32 編輯

請教高手大大
vba要如何才能實現,計算當前工作表,等計算結東後,再進行下一步
我是用(ActiveSheet.Calculate '計算當前工作表)程式碼,但是它沒辦法,
等待計算完成後,再進行下一步,
請教是否有其它做法及程式碼可用,謝謝

樓主熱帖

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

2^#

發表於 2014-3-16 08:34 | 顯示全部帖子

回復 2# Hsieh

感謝h版大回復
程式碼更改如下,但有些問題,就是重新計算過程中,游標如有點擊工作表畫面,會終止計算,造成無限回圈
請教要如何改善,謝謝!!
   Do Until Application.CalculationState = xlDone
      Application.Calculate '計算工作表
      Loop

附上文件檔案

問題附檔.rar (719.52 KB)

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

3^#

發表於 2014-3-16 17:20 | 顯示全部帖子

回復 5# yen956

謝謝y大回復
我不知程式碼要放在那才正確,我測試都不ok,還請指教幫忙,謝謝!!

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

4^#

發表於 2014-3-16 23:04 | 顯示全部帖子

回復 7# yen956

沒關係, 謝謝你的熱心幫忙

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

5^#

發表於 2014-3-17 07:47 | 顯示全部帖子

本帖最後由 blue2263 於 2014-3-17 07:48 編輯

回復 9# Hsieh

感謝h版主回復
測試後結果:重新計算過程中,游標如有點擊工作表畫面,雖然不會造成回圈錯誤,但會終止計算
造成後面,貼上值的資料錯誤,因為我工作表函數有很多,因此計算上較慢,所以會有這個問題,

之前測試,如果程式碼改為
Application.Calculate '計算工作表
ActiveWorkbook.Save'儲存檔案
'貼上值
是可以逹到,強制計算後,正確貼上值的效果,
但想是否有更好的方法,因儲存檔案,會重新計算所有工作表,不能只計算當前工作表,感覺會比較慢
因此想尋求,是否有更好的作法

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

6^#

發表於 2014-3-30 06:30 | 顯示全部帖子

請教版主大大
一般如有一些大量計算的工作,是否不會用工作表函數來做?
而是直接在VBA內做計算,這樣就沒有我上述問題了吧