如何在Excel里使用定时器
发布网友
发布时间：2022-04-20 19:32
我来回答
共3个回答
热心网友
时间：2023-09-06 17:36
在 Office 里有个方法是 application.ontime ，具体函数如下：
expression.OnTime(EarliestTime, Procere, LatestTime, Schele)
如果想进一步了解，请参阅 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 这个函数写出更多更有用的定时程序。
热心网友
时间：2023-09-06 17:36
● 支援读取 Word / Excel / PowerPoint / PDF / ZIP 档案 ● 支援 PoC ● 支援最大 2 GB microSD 记忆... Excel、PowerPoint等多种文档 v 个人助理 『闹钟』 『日历』 『计算器』 『定时器』 『秒表』...
8 办公功能： 内置了Picsel文件浏览器功能，支持Word、Excel、PowerPoint等多种文档的浏览 v 个人助理 『日历』 『计算器』 『定时器』 『秒表』 『备忘录』 『世界时钟』 『单位换算』 『货币换算』 ...
...Excel、Microsoft® PowerPoint® 8 PDF文件浏览： 支持Adobe® Acrobat® (PDF) v 个人助理 『闹钟』 『计算器』 『定时器』 『秒表』 『记事本』 『日程表』 『世界时钟』 『货币换算...
热心网友
时间：2023-09-06 17:36
其实很简单，用OFFICE自带的VB编辑器就能解决。
如何在Excel里使用定时器?
在 Office 里有个方法是 application.ontime ，具体函数如下：\x0d\x0aexpression.OnTime(EarliestTime, Procedure, LatestTime, Schedule)\x0d\x0a如果想进一步了解，请参阅 Excel 的帮助。 \x0d\x0a\x0d\x0a这个函数是用来安排一个过程在将来的特定时间运行，（可为某个日期的指定时间，也...
如何管理excel表格实现定时填报功能?
我们首先获取当前时间，并计算下一次定时器运行的时间。然后，我们使用一个无限循环来不断获取当前时间，并在当前时间超过下一次定时器运行的时间时取消定时器。在每次循环中，我们使用strftime函数将当前时间格式化为字符串，并将其填充到表格中。然后，我们使用另一个循环来清除表格中的数据。最后，我们使用...
EXCEL中能使用定时器控件么?
Procedure String 类型，必需。设置要运行的过程名。LatestTime Variant 类型，可选。过程开始运行的最晚时间。例如，LatestTime 参数设为 EarliestTime + 30，当时间到了 EarliestTime 时，如果由于其他程序处于运行状态 Microsoft Excel 不处于“就绪”、“复制”、“剪切”或“查找”模式，则 Microsoft E...
如何在Excel中实现定时接收串口数据呢?
1. 打开Excel，并按下Alt + F11打开VBA编辑器。2. 在VBA编辑器中，插入一个新的模块（Module）。3. 在新的模块中，编写VBA代码来实现串口数据的接收。可以使用SerialPort对象和相关的方法和事件来进行数据的接收和处理。4. 在VBA代码中，设置一个定时器，通过Timer事件来定时触发串口数据的接收。可以...
如何在Excel里使用定时器
End Sub '=== '按ALT+F11进入VBA编程界面，VBA菜单：“插入”—“模块”，在“模块1”中复制以下全部代码：Dim ttt '定义时间变量 Sub 呼叫F9键()'MsgBox "F9开始 "Application.SendKeys "{F9}"ActiveSheet.Range("m1").Select 定时开始 End Sub Sub 定时开始()'ttt = TimeValue(Now()) +...
VBA“定时器”的实现
在Excel VBA编程中，虽然没有内置的定时器控件，但通过Application对象的OnTime方法可以实现精准的时间调度。这一功能在第31讲中详细讲解，旨在帮助你理解如何利用VBA编写定时任务。OnTime方法是关键，它允许你在指定的时间或事件后运行一个过程。例如，使用Now + TimeValue(time)可以设定一个从现在开始的...
如何使一个excel表格在固定时间弹出 总是忘记打卡,自己做个打卡的时间...
TimeValue("08:30:00"), "Show_my_msg"'设置定时器在 08:30:00 激活，激活后运行 Show_my_msg 。End Sub Sub Show_my_msg()msg = MsgBox("现在是 08:30:00 ！", vbInformation, "记得打卡哦～")End Sub 上面是8：30的提醒，其他几次，你只需要把时间换一下，写上去就行了 ...
Excel vba 怎样用定时器功能调用程序
As Double Sub Update()Windows("Testrss.xls").Activate ActiveWorkbook.XmlMaps("rss_Map").DataBinding.Refresh Sheet2.Cells.EntireRow.AutoFit RefreshXML End Sub Sub RefreshXML()dtime = Now + TimeValue("00:05:00")Application.OnTime dtime, "Update"End 每隔5分调用一次Update例程 ...
如何用EXCEL制作弹出窗口
在ThisWorkbook的代码页复制下面的代码 Private Sub Workbook_Open()Application.OnTime Now + TimeValue("00:00:002"), "s"End Sub 在模块区复制下面的代码 Dim Ar(1 To 100, 1 To 10), Xn Public Sub s() 's()和sss()和ThisWorkbook的代码，组成定时报警系统 Sheets(1).Activate For i ...
excel倒计时器
和单元（I，4）=“”和len（细胞（我， 3））> 0，则 细胞（I，4）=“时间”否则 如果细胞（I，3）= 0和单元（I，4）=“”然后细胞（I，3）=细胞（I，2）结束如果 结束如果 接下来，我 END SUB 然后添加一个按钮，在工作表中，调用：私人小CommandButton1_Click（）认购准时 完小 ...
