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里使用定时器

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 这个函数写出更多更有用的定时程序。

3.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。

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

如下示例：

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

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

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

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

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

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

END

注意事项

5.Excel vba 怎样用定时器功能调用程序

参考代码：Public dtime As DoubleSub Update()Windows("Testrss.xls")..XmlMaps("rss_Map").DataBinding.RefreshSheet2.Cells.EntireRow.AutoFitRefreshXMLEnd SubSub RefreshXML()dtime = Now + TimeValue("00:05:00")Application.OnTime dtime, "Update"End 每隔5分调用一次Update例程。

6.怎么样在EXCEL中设置定时倒计时

“在C1中输入到期日期 比如是2010-11-12 如果想在d2中得到结果 用函数=IF(C1>TODAY（)，"还有"&C1-TODAY（)&"天到期"，IF(C1=TODAY（)，"今天到期"，"已还"）） 就可以得到结果了 如果想要在倒数10天的时候开始计时 在条件中可以用 =IF(AND(010，"正常"，IF(C1-TODAY()=0，"今天到期"，"已还"））） 。

如果在倒计时10的时候希望计数的单元格变成别的颜色来提醒自己 可以在格式——条件格式——公式 中来完成 在公式中输入=C1-TODAY()<=10 然后再在 旁边的格式——图案 中选择你想要提醒的颜色就可以了”--引用作者。

7.excel软件里可以做一个计时器吗

可这么操作：一、在任一单元格如D5，输入公式“=F1-D1”；“格式/单元格/数字/分类/自定义/类型/[h]:mm:ss”。

二、设置《开始计时》按钮：1、“工具/宏/录制新宏”；2、在D1输入“=NOW（)”，回车；再复制D1，“选择性粘贴/数值/确定”；3、“工具/宏/停止录制”，默认宏名“Macro1”4、选“视图/工具栏/窗体/按钮”，用光标画出按钮，右键单击“编辑文字”，制作《开始计时》按钮；5、右键选中《开始计时》按钮，“指定宏/Macro1/确定”。三、设置《停止计时》按钮：步骤与二同，只是默认宏名为“Macro2”。

四、使用：1、选中D1，点《开始计时》按钮，即开始计时，D1显示开始的具体时点；2、选中F1，点《停止计时》按钮，即可停止计时，F1显示停止的具体时点；3、此时，D5即自动显示历经时间。附件：自动计时.xls。

8.请问各位老师 在excel表格中如何才能加入一个计时器呢,可以点击开

需要用到VBA编程，以下是前人的留贴，供参考

操作步骤：

1、在Excel工作表里按Alt+F11，打开VBA编程界面

2、在VBA编程界面的工具栏，第二个按钮拉下来选模块

3、在左边栏的你需要计时器的那个工作表名字上双击，打开右边的程序书写区域

4、把下面的程序代码粘贴进去

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Cells.Count = 1 And (Not Intersect(Target.Cells(1), Range("B1")) Is Nothing) Then

[B1] = "开始时间"

[C1] = Format(Now(), "Hh:mm:Ss")

[D1] = Timer

[D1].Font.ColorIndex = 2

[B2:D3].ClearContents

End If

If Target.Cells.Count = 1 And (Not Intersect(Target.Cells(1), Range("B2")) Is Nothing) Then

[B2] = "结束时间"

[C2] = Format(Now(), "Hh:mm:Ss")

[D2] = Timer

[D2].Font.ColorIndex = 2

[B3] = "总共用时"

[C3] = Format([D2] - [D1], "#0.00")

[D3] = "秒"

End If

Target.Offset(1, 0).Select

End Sub

5、关闭VBA编程界面回到工作表

6、双击B1开始计时，双击B2终止计时，用时结果在C3单元格

（特别提醒：要在Exce中通过菜单“工具-宏-安全性”把宏的安全级别设为中或低以允许宏的运行，否则宏不能运行也得不到你要的结果）