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

2025-09-28 03:51:29

1、动态时钟界面的制作

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

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

2、对各引用单元格进行命名

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

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

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

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

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

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

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

Private Sub Workbook_Open()

RT

End Sub

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

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

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

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。