yu2n

回复 6# 冰剑幽蓝


    也许你需要 DateDiff() 函数：

Sub AutoTips()
    Dim dtTips As Date
    dtTips = Format("2014-8-28 09:30", "yyyy.MM.dd hh:nn:ss")
    dtTips = DateAdd("h", -1, dtTips)
 
    If DateDiff("s", Now, dtTips) <= 0 Then
        MsgBox "go to sleep ..."
    End If
End SubCOPY

yu2n

回复 9# CrLf
1. 关于超时的问题：可以考虑一般闹铃程序的模式，照搬逻辑控制部分。
   可以实现：星期一~星期六提醒、每天提醒、懒睡模式。当然，程序也会庞大很多。
2. 如果程序长期使用，可以考虑将设置写入注册表、或者配置文件。

yu2n

回复 11# 冰剑幽蓝
把Excel样板发上来看看。

yu2n

回复 14# 冰剑幽蓝
参考：
VBA实现定时提醒功能
http://blog.sina.com.cn/s/blog_4d99edbe0100hv9w.html