棘手的excel運算問題，如何改善??

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

36^# 跳轉到 »

發表於 2016-1-29 08:48 | 只看該作者

回復 35# c_c_lai

C大妳真是太細心了，感謝你，我先研究看看，謝謝

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

35^#

發表於 2016-1-29 07:34 | 只看該作者

本帖最後由 c_c_lai 於 2016-1-29 07:38 編輯

回復 34# 藍天麗池
我前前後後查看了你與准提部林版大上傳分享的檔案，
發現問題仍然出自於你的自行再整合，准提部林版大
上傳的內容都沒加入 Workbook_Open() 的執行內容，
甚至在第一次給的 Xl0000328.rar 也亦將它 Marked 掉，
你只將它分享模組內的 Sub 統計() 直接貼入到你原本的檔案內
所以才會造成未能正常執行的原因。為幫助你更能明瞭版大
模組的運作，特予在其模組內每一循環細部分析解說，希望你
能進一步學習到如何運用，同時能增進你本身的自我觀察力。
我將三方的程式模組予以組合上傳上來，你測試看看結果如何。
解壓後便直接用它來執行測試，如此才得以觀測其測試結論。

明細變動記錄.rar (178.89 KB)

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

34^#

發表於 2016-1-28 21:46 | 只看該作者

回復 33# c_c_lai

可是之前這樣設定能跑，為什麼加了准大的程式之後就不能跑呢??

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

33^#

發表於 2016-1-28 18:24 | 只看該作者

回復 31# 藍天麗池
你把 ThisWorkbook 裡的函數內容稍加異動
然後予以儲存後，關閉重開 Excel：

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.RTD.ThrottleInterval = 2000
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub Workbook_Open()
Application.RTD.ThrottleInterval = 0
Application.Calculation = xlCalculationManual
End Sub

複製代碼

修改成：

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.RTD.ThrottleInterval = 0
Application.Calculation = xlCalculationManual
End Sub
Private Sub Workbook_Open()
Application.RTD.ThrottleInterval = 2000
Application.Calculation = xlCalculationAutomatic
End Sub

複製代碼

再重新試試看。
這便是准提部林版大問你的問題。

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

32^#

發表於 2016-1-28 17:15 | 只看該作者

回復 30# 准提部林

準大，我不太懂你的意思

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

31^#

發表於 2016-1-28 17:14 | 只看該作者

回復 29# c_c_lai

有，一直有變動

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

30^#

發表於 2016-1-28 16:56 | 只看該作者

回復 28# 藍天麗池

Private Sub Workbook_Open()
Call 統計_啟動
Application.RTD.ThrottleInterval = 0
Application.Calculation = xlCalculationManual '開啟檔案就將〔自動重算〕關閉，怎可能觸動〔Calculate〕　
End Sub

TOP

c_c_lai