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

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

Private Sub Workbook_Open()
 RT
End Sub

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