返回列表 上一主題 發帖

[發問] Worksheet_Calculate 無法正確執行 ?

准提部林

帖子
2842 
主題
10 
精華
0 
積分
2898 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-4-28 
1# 跳轉到 »
發表於 2024-7-24 14:19 | 顯示全部帖子
"10:03:00" + 提示4秒 = "10:03:04"

"10:03:02" >> 永遠被跳過..執行不到

TOP

准提部林

帖子
2842 
主題
10 
精華
0 
積分
2898 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-4-28 
2#
發表於 2024-7-24 14:21 | 顯示全部帖子
Private Sub Worksheet_Calculate()
dim ck%
If Format(Now, "hh:mm:ss") = "10:03:00" Then
  ck=1
  MsgBoxTest 0, " test 4秒自動關閉 ", "提示訊息", vbSystemModal, 0, 4000
End If
If ck=1 Then [m21] = 1
end sub

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題