返回列表 上一主題 發帖

[發問] 不太懂為什麼module1跟thisworkbook的關係

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 2018-9-11 17:45 | 顯示全部帖子
回復 1# ddtggg
"ThisWorkBook.ExeSelf" 與 "ExeSelf" 實質上是兩個不同的
宣告函式。 一個宣告於 ThisWorkBook 程式區域中；另一個則宣告
於 Module1 模組中。不巧的是兩者都使用同一程式名稱之命名。
如果將它們個別宣告成 A()、以及 B() 時則無此困惑。
此處 "ThisWorkBook.ExeSelf" 是去呼叫 ThisWorkBook 中的
Sub ExeSelf() 函式； 而 ExeSelf 則會去執行 Module1 模組
中的 Sub ExeSelf() 函式， 而非 ThisWorkBook 中的 Sub ExeSelf()。
如此解答瞭解否？

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2018-9-12 18:11 | 顯示全部帖子
回復  c_c_lai
有一點懂。簡單說就是把Modlue1最底下thisworkbook.ExeSelf改成指到ExSelf，就不會繞來繞去 ...
ddtggg 發表於 2018-9-12 11:36

請附上目前提問的檔案，方便查對。
譬如： if i = 30 then 等語法在哪裡。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2018-9-19 05:54 | 顯示全部帖子
回復 6# ddtggg
Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkBook.ExeSelf"
每秒 (Now + TimeValue("00:00:01")) 都會啟動執行 "ThisWorkBook.ExeSelf"
內之 If i = 30 Then ~  Else ~ End If 判斷。

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題