来源:
Dim Runtime As Date '定义时间变量 Sub RunTimer() Runtime = Now() + TimeValue("00:00:02") '时间显示为增加1秒 Application.OnTime Runtime, "my_Procedure" '在这个指定的时间执行下面的过程End Sub Sub my_Procedure() Range("A1") = Format(Time, "h:mm:ss") '在指定的表格显示系统当前的时间(Time) RunTimer '回头继续执行上面的程序End Sub
OnTime函数指在某一具体时间执行某一过程,即过程my_Procedure。
执行my_Procedure的时候,就显示现在的时间,然后立即执行Runtime过程,接着就循环下去,效果如下图所示:(颜色大小可以另外设置)
涉及到的相关概念:
- :表示从 0001 年 1 月 1 日到 9999 年 12 月 31 日的日期以及从午夜 12:00:00 到晚上 11:59:59.9999999 的时间。Date 的默认值为 0001 年 1 月 1 日的 0:00:00(午夜)。
- :以 datetime 格式返回当前日期和时间。
- Time 函数:返回系统当前的时间。
- :将文本格式的时间转换为日期时间格式的时间。
- :安排一个过程在将来的特定时间运行(既可以是具体指定的某个时间,也可以是指定的一段时间之后)。 OnTime(EarliestTime, Procedure, LatestTime, Schedule) 后面两个为可选参数!
Application.OnTime Runtime, "my_Procedure"单独一行的方法不能加括号,要是涉及到赋值操作,则要加括号!
- :没有参数的时候指工作表中所有的单元格,带一个参数则表示第一行的第几个单元格,带两个参数,则分别表示行和列!
With Cells(2, 2).Font .Size = 20 .Color = RGB(255, 0, 0) .Name = "Arial Black" .FontStyle = "Bold Italic" End With
- :它代表一个单元格或单元格区域。
- :返回根据格式 String 表达式中包含的指令设置格式的字符串。其中格式有预定义的符号,通过符号来代表不一样的显示格式!