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

t8899

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沒被執行? 如何解決 ?(條件時間不能更改)

准提部林

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

准提部林

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

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