返回列表 上一主題 發帖

[發問] 違反共用原則

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
353 
主題
5 
精華
0 
積分
386 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-5-4 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2023-8-11 13:07 | 顯示全部帖子
回復 2# cowww


    若我沒記錯 這裡可能有兩個錯誤
1.時間等待 我建議是 Application.OnTime date+TimeValue("17:00:00"), "full_calc"


2.由於這裡的書寫方式與call 的方式不同  比較類似vb
例如說 某個模組 moduel1 當中的 sub test() 程序
那就該寫成
Application.OnTime date+TimeValue("17:00:00"), "moduel1.test"
而不能寫成
Application.OnTime date+TimeValue("17:00:00"), "test"

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
353 
主題
5 
精華
0 
積分
386 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-5-4 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2023-8-11 14:05 | 顯示全部帖子
本帖最後由 singo1232001 於 2023-8-11 14:08 編輯

回復 4# cowww


因為沒有看到full_calc的模組  所以無法判斷

但我不建議 把ontime 寫在Thisworkbook模組內
應改寫在自訂模組下
而在open的時候 去call呼叫這個模組

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
353 
主題
5 
精華
0 
積分
386 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-5-4 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2023-8-12 16:08 | 顯示全部帖子
回復 6# cowww


感覺上 ontime這句語法沒問題

而是在這 full_calc 個程序裡面出錯

在full_calc出錯 被彈出來 ontime這邊 會誤認以為是ontime出錯  

應該先另外寫一個直接測試不要用ontime的方式 call full_calc 逐行F8看看

sub testcall
call full_calc
end sub

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題