Excel VBA 实现电子钟

来源：http://mcdelfino.blog.51cto.com/2058744/691026

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过程，接着就循环下去，效果如下图所示：（颜色大小可以另外设置）

涉及到的相关概念：

Date数据类型：表示从 0001 年 1 月 1 日到 9999 年 12 月 31 日的日期以及从午夜 12:00:00 到晚上 11:59:59.9999999 的时间。Date 的默认值为 0001 年 1 月 1 日的 0:00:00（午夜）。
Now 函数：以 datetime 格式返回当前日期和时间。
Time 函数：返回系统当前的时间。
TimeValue 函数：将文本格式的时间转换为日期时间格式的时间。
Application.OnTime 函数：安排一个过程在将来的特定时间运行（既可以是具体指定的某个时间，也可以是指定的一段时间之后）。
　　OnTime(EarliestTime, Procedure, LatestTime, Schedule)
　　后面两个为可选参数！
```
Application.OnTime Runtime, "my_Procedure"
单独一行的方法不能加括号，要是涉及到赋值操作，则要加括号！
```

Worksheet.Cells 属性：没有参数的时候指工作表中所有的单元格，带一个参数则表示第一行的第几个单元格，带两个参数，则分别表示行和列！

    With Cells(2, 2).Font
        .Size = 20
        .Color = RGB(255, 0, 0)
        .Name = "Arial Black"
        .FontStyle = "Bold Italic"
    End With

Worksheet.Range 属性：它代表一个单元格或单元格区域。
Format 函数：返回根据格式 String 表达式中包含的指令设置格式的字符串。其中格式有预定义的符号，通过符号来代表不一样的显示格式！