用excel制作一个计时器

Question

各位大哥：我想使用excel制作一个倒计时器，提前一个小时弹出一个提示信息，在倒计时时间为0时，再弹出一个提示框并在提示信息框中开始计时；

Answer 1

应该不行吧，因为Excel不具备随时刷新功能，可以用VB编写
给你一个示例（将下面程序粘贴到记事本中，保存后再将后缀改成。vbs） 根据需要自己修改延时时间
on error resume next
set X = wscript.createobject("wscript.shell")
X.run "cmd.exe /c shutdown -r -t 600 -c ""十分钟内输入不正确将关机！",0,True
do while Y<>"password"
Y = inputbox ("请输入正确密码","输入窗口","",5000,7000) '清空输入框，位置在5000,7000处
msgbox "【"+Y+"】",0,"输入的密码是:"
loop
X.run "cmd.exe /c shutdown -a",0,True
msgbox "输入正确！"

Answer 2

这东西我做过，一到下班前五分钟就提示我要下班了~~~哈哈~~~expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule)expression 必选。该表达式返回一个 Application 对象。EarliestTime Variant 类型，必选。设置过程开始运行的时间。Procedure String 类型，必选。设置要运行的过程名。
LatestTime Variant 类型，可选。过程开始运行的最晚时间。例如，LatestTime 参数设为 EarliestTime + 30，当时间到了 EarliestTime 时，如果由于其他程序处于运行状态 Microsoft Excel 不处于“就绪”、“复制”、“剪切”或“查找”模式，则 Microsoft Excel 将等待 30 秒让第一个过程先结束运行。如果 30 秒内 Microsoft Excel 不能回到“就绪”模式，则不运行此过程。如果省略该参数， Microsoft Excel 将一直等待到可以运行该过程为止。Schedule Variant 类型，可选。如果为 True 则安排一个新的 OnTime 过程。如果为 False 则清除先前设置的过程。默认值为 True。说明使用 Now + TimeValue(time) 可安排经过一段时间（从现在开始计时）之后运行某个过程。使用 TimeValue(time) 可安排某个过程只运行指定的时间。追问

可以麻烦大哥给一段详细的代码吗？谢谢

本回答被提问者采纳