VBA - 截止日期和小时和分钟？

Question

假设我想要在距离发生一小时的时间内弹出一个msgbox，怎么会这样做？

我正在思考一些事情：

MyLimit = Now

If .Value = MyLimit Then
msgbox "Do that thing cause it is due right now"

或

MyLimit = Date

If .Value = MyLimit Then
msgbox "Do that thing cause it is due right now"

并让公式引用日期格式为“m / d / yy h：mm AM / PM”的单元格

这样的东西不起作用，我想知道为什么。

Answer 1

尝试Application.OnTime方法

Sub setAlarm()
    Application.OnTime Range("deadline").Value - TimeValue("01:00:00"), "my_Procedure"
End Sub

Sub my_Procedure()
    MsgBox "Do that thing cause it is due right now"
End Sub

msgbox在截止日期前一小时弹出