Excel应用技巧：[9]创建动态时钟

1、动态时钟界面的制作首先制作如图所示的时钟界面，当然也可以根据自己的爱好制作更加精美的钟面。

2、对各引用单元格进行命名为了方便以后编程的需要，将需要引用的单元格进行命名，这样就方便以后编程时进行引用。

3、按键盘快捷键”Alt+F11“进入VBA编程环境。 在VBA环境下，右击“Microsoft Excel对象”，在弹出的菜单中选择“插入”→“模块”。

4、 接着在模块中输入如图所示的代码：Sub RT() Range("nian") = Year(Now()) Range("yue") = Month(Now()) Range("ri") = Day(Now()) Range("shi") = Hour(Now()) Range("feng") = Minute(Now) Range("miao") = Second(Now) If Range("C2") = "J" Then Range("zhishi") = "K" Else Range("zhishi") = "J" End If Application.OnTime Now + TimeValue("00:00:01"), "RT" End Sub

5、双击”ThisWorkBook“，在打开的窗口中，选择”Open“事件，并输入”RT“，使文档被打开时就调用该函数。 Private Sub Workbook_Open() RTEnd Sub

6、关闭当前文档，并再次打开，就会发现想要的效果出现啦。