Excel制作计时器：从基础表格到动态时钟的完整教程

Excel制作计时器：从基础表格到动态时钟的完整教程

在活动或演示中，有时需要使用计时器并将其显示在投影上。虽然市面上有许多计时软件可供选择，但使用Excel表格制作一个简单的计时器不仅方便快捷，还能根据需要进行个性化设置。下面将详细介绍如何在Excel中制作一个具有“手表”效果的计时器。

1. 创建基础表格

首先，需要创建一个基础表格来作为时钟的数据源。具体步骤如下：

1. 在A列输入0到59的数字，表示时钟的60个刻度。
2. 在B列每隔5行输入1到12的数字，表示时钟的12个小时刻度。
3. C、D、E三列分别用于显示时、分、秒的数据。

2. 生成“时钟”图形

接下来，使用雷达图来生成时钟的图形：

1. 选择B、C、D、E单元格的数据，插入带数据标记的雷达图。
2. 删除雷达图中多余的元素，如标签、坐标轴、网格和图例等。
3. 手动添加小时刻度的数据标签，从1到12。

3. 编写VBA代码

这是实现计时功能的关键步骤。通过VBA代码可以让时钟自动更新时间：

1. 按下ALT+F11启动VBA编辑器，插入一个新模块。
2. 输入以下代码：

Sub onClock() 
 Dim h,m,s 

 h=Hour(Now) 
 m=Minute(Now) 
 s=Second(Now) 

 DoEvents 

 Range("C2:E62").ClearContents 
 Cells(s+2,5)=9:Cells(s+3,5)=0 
 If s=59 Then Cells(2,5)=0 
 Cells(m+2,4)=8:Cells(m+3,4)=0 
 If m=59 Then Cells(2,4)=0 
 If h>=12 Then h=h-12 
 h=h*5+Int(m/12) 
 Cells(h+2,3)=6:Cells(h+3,3)=0 
 If h=59 Then Cells(2,3)=0 

 Application.OnTime Now+TimeValue("00:00:01"),"onClock"
 End Sub 

 Sub offClock() 
 On Error Resume Next 
 Application.OnTime Now+TimeValue("00:00:01"),"onClock",,False 
 End Sub 

3. 保存并关闭VBA编辑器。

4. 添加控制按钮

为了让用户能够控制计时器的启动和停止，需要添加两个按钮：

1. 在开发工具中插入两个窗体控件按钮。
2. 将第一个按钮指定为宏“onClock”，命名为“开始计时”。
3. 将第二个按钮指定为宏“offClock”，命名为“停止计时”。

5. 美化时钟

最后，可以根据个人喜好对时钟进行美化，使其看起来更像一个真实的手表。

注意事项

• 表格制作一定要按照上述步骤和图片所示进行，确保数据的准确性。
• VBA代码需要在启用宏的环境下运行，否则计时功能将无法实现。

通过以上步骤，你就可以在Excel中制作一个简单但功能齐全的计时器了。这个计时器不仅可以在活动或演示中使用，还可以作为学习Excel和VBA的一个有趣项目。