[问题求助] VBS如何用dateadd提前一小时提醒？

冰剑幽蓝

我做了个程序，需要在晚上10点前一小时，自动提醒“睡觉”，程序能够正常运行，但是始终没有弹出“睡觉”的对话框，我还注意到，我在用F8执行程序的时候，每到msgbox"睡觉"的时候就自动跳过，并且在运行程序的时候，excel宏的标题栏右边有一个打括号的中断，麻烦各位高手帮忙看看是怎么回事？最好能把正确的程序写给我，万分感谢~
Sub 自动提醒()
Dim xzsj, txsj 'xzsj为现在时间，txsj为提醒时间
xzsj = Now
txsj = DateAdd("h", -1, "2014-8-26 22:00")
If Abs(xzsj - txsj) < 0.00001 Then
    MsgBox "睡觉"
End If
End Sub

冰剑幽蓝

我其实是做了个EXCEL的月历表，想每天记些事项并提前一小时提醒，问题是程序能运行，但提示的内容始终不出来，麻烦帮我看看怎么回事

冰剑幽蓝

我有2个问题：
1，是不是提前一个小时提醒不能用dateadd这个函数？
2，我用你的程序执行了一遍，执行到"if flag and timer>txsj then"后，就直接跳到end if了，是什么原因？
我自己写的那个程序也是，运行到“If Abs(xzsj - txsj) < 0.00001 Then”就直接跳到end if了，我估计是前面的时间没写对，麻烦帮我看看吧~

冰剑幽蓝

终于成功了，感谢大神，来拜一拜~

冰剑幽蓝

我能再问问如何让excel的宏，在不用按执行按钮的时候自动执行吗？就是我打开这个excel表，一到22点它就能自动弹出对话框，提醒我要睡觉了？因为现在每次我只能到时间后到宏里去点一下执行按钮~忘各位大神指教

冰剑幽蓝

我把excel放在附件里了，请大神帮我看看吧~（只写了一个8月28 22点睡觉的例子）

冰剑幽蓝

我网上看到可以用
Private Sub Workbook_Open()
自动提醒 ‘宏的代码
End Sub
但是我加在thisworkbook后，还是不能到时间就自动跳出来，而只能手动按执行键，到底是怎么回事啊？

冰剑幽蓝

我现在想知道的是怎么能不按执行键，在excel打开的情况下直接运行程序？

冰剑幽蓝

谢谢yu2n，最后我拿着你给我的链接弄成功了，而且比原来的程序要简单的多