怎么在excel表格上做计时器

1.如何在Excel里使用定时器?

在 Office 里有个方法是 application.ontime ，具体函数如下：

expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule)

如果想进一步了解，请参阅 Excel 的帮助。

这个函数是用来安排一个过程在将来的特定时间运行，（可为某个日期的指定时间，也可为指定的时间段之后）。通过这个函数我们就可以在 Excel 里编写自己的定时程序了。下面就举两个例子来说明它。

1.在下午 17:00:00 的时候显示一个对话框。

Sub Run_it()

Application.OnTime TimeValue("17:00:00"), "Show_my_msg"

'设置定时器在 17:00:00 激活，激活后运行 Show_my_msg 。

End Sub

Sub Show_my_msg()

msg = MsgBox（"现在是 17:00:00 !", vbInformation， "自定义信息"）

End Sub

2.模仿 Excel 97 里的 "自动保存宏"，在这里定时 5 秒出现一次

Sub auto_open()

MsgBox "欢迎你，在这篇文档里，每 5 秒出现一次保存的提示！"， vbInformation， "请注意！"

Call runtimer '打开文档时自动运行

End Sub

Sub runtimer()

Application.OnTime Now + TimeValue("00:00:05"), "saveit"

' Now + TimeValue("00:15:00") 指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。

End Sub

Sub SaveIt()

msg = MsgBox（"朋友，你已经工作很久了，现在就存盘吗？" & Chr(13) _

& "选择是：立刻存盘" & Chr(13) _

& "选择否：暂不存盘" & Chr(13) _

& "选择取消：不再出现这个提示"， vbYesNoCancel + 64， "休息一会吧！"）

'提示用户保存当前活动文档。

If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit Sub

Call runtimer '如果用户没有选择取消就再次调用 Runtimer

End Sub

以上只是两个简单的例子，有兴趣的话，可以利用 Application.Ontime 这个函数写出更多更有用的定时程序。

2.Excel 如何制作一个定时触发计时器

如下示例：

打开一个空白的工作表作为例子。

在国庆日的类目中输入正确的时间。

在当前日期内输入函数today，函数的格式是=today()。

在剩余日期类目下输入公式使用国庆日-今天的日期，写入公式=a2-b2。

回车确认后可以看到显示还有11天。

修改当前时间，倒计时的数字会发生变化。

END

注意事项

3.用excel制作一个计时器

应该不行吧，因为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 "输入正确！"

4.excel怎么做一个 时钟 计时器

vba代码可以实现。

参考如下：Dim TimerActive As BooleanSub StartTimer() Start_TimerEnd SubPrivate Sub Start_Timer() TimerActive = True Application.OnTime Now() + TimeValue("00:01:00"), "Timer"End SubPrivate Sub Stop_Timer() TimerActive = FalseEnd SubPrivate Sub Timer() If TimerActive Then ActiveSheet.Cells(1, 1).Value = Time Application.OnTime Now() + TimeValue("00:01:00"), "Timer" End IfEnd Sub。

5.如何在excel里使用定时器

expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule)如果想进一步了解，请参阅 Excel 的帮助。

这个函数是用来安排一个过程在将来的特定时间运行，（可为某个日期的指定时间，也可为指定的时间段之后）。通过这个函数我们就可以在 Excel 里编写自己的定时程序了。

下面就举两个例子来说明它。 1.在下午 17:00:00 的时候显示一个对话框。

Sub Run_it()Application.OnTime TimeValue("17:00:00"), "Show_my_msg"'设置定时器在 17:00:00 激活，激活后运行 Show_my_msg 。End SubSub Show_my_msg()msg = MsgBox（"现在是 17:00:00 !", vbInformation， "自定义信息"）End Sub2.模仿 Excel 97 里的 "自动保存宏"，在这里定时 5 秒出现一次 Sub auto_open()MsgBox "欢迎你，在这篇文档里，每 5 秒出现一次保存的提示！"， vbInformation， "请注意！"Call runtimer '打开文档时自动运行End SubSub runtimer()Application.OnTime Now + TimeValue("00:00:05"), "saveit"' Now + TimeValue("00:15:00") 指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。

End SubSub SaveIt()msg = MsgBox（"朋友，你已经工作很久了，现在就存盘吗？" & Chr(13) _& "选择是：立刻存盘" & Chr(13) _& "选择否：暂不存盘" & Chr(13) _& "选择取消：不再出现这个提示"， vbYesNoCancel + 64， "休息一会吧！"）'提示用户保存当前活动文档。 If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit SubCall runtimer '如果用户没有选择取消就再次调用 RuntimerEnd Sub以上只是两个简单的例子，有兴趣的话，可以利用 Application.Ontime 这个函数写出更多更有用的定时程序。

6.如何使用EXCEL中的函数计时

用EXCEL做倒计时步骤如下： 1、打开表格，并新建一个空白文档。

2、第一列中输入日期两个标题，并填写日期。 3、第二列中输入“2015-01-01-today（)"。

同样的用右击。 4、新建一个页面，进入工具菜单并去除网格颜色这个选项。

5、输入文字。在中间的空白处输入【="今天"&TEXT(TODAY(),"[dbnum2]aaaa"）】 6、在下面继续输入【=TODAY（)】 7、然后在下方，继续输入【="距离2015年元旦还有"&'Sheet1 (2)'!F2&"天"】。

7.EXCEL怎样实现从某一时间开始计时

楼上的说得没错，只是不必要每次重新关闭打开工作簿，可以按F9重新计算一下就可以得到当前计时数据。

详细点可以一、先在第二个单元格d3中输入=now（)二、第一个单元格内d2输入你的起始日期，提示：如果你复制第二个单元格d3选择性粘贴数值到第一单元格d2的话就可以实现从任意时间开始计时了。三、第三个单元格d4中输入=d3-d2四、第四个单元格D5内输入：=YEAR(D4)-1900&"年"&MONTH(D4)&"月"&DAY(D4)&"天"&HOUR(D4)&"时"&MINUTE(D4)&"分"&SECOND(D4)&"秒"，会得到更好的时间显示。

从开始日期起到现在时间差值数据类似0年3月31天22时31分56秒这个格式的。