標題: [發問] Worksheet_Calculate 無法正確執行 ? [打印本頁]

---

作者: t8899    時間: 2024-7-24 10:10     標題: Worksheet_Calculate 無法正確執行 ?

本帖最後由 t8899 於 2024-7-24 10:12 編輯

Worksheet_Calculate 無法正確執行 ?

Private Sub Worksheet_Calculate()
If Format(Now, "hh:mm:ss") = "10:03:00" Then
MsgBoxTest 0, " test 4秒自動關閉 ", "提示訊息", vbSystemModal, 0, 4000
End If
If Format(Now, "hh:mm:ss") = "10:03:02" Then '
[m21] = 1
End If
end sub

10:03:00 出現的提示視窗會停4秒才關閉，這會導致10:03:02的 [m21] = 1沒被執行? 如何解決 ?(條件時間不能更改)

---

作者: 准提部林    時間: 2024-7-24 14:19

"10:03:00" + 提示4秒 = "10:03:04"

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

---

作者: 准提部林    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)