好久的没有更新了,今天准备给大家分享一个利用EXCEL制作时钟的案例。

这里,很多小伙伴们可能会说,EXCEL可以做时钟吗?答案当然是可以的。下面,EK就慢慢给大家分享制作过程。

首先我们看一下案例效果图:

利用EXCEL制作会动的时钟-趣帮office教程网

图1 钟表效果图

案例里面使用了VBA和图表。

第一步,我们新建一个“钟表.xlsm”文件(可以使用VBA)。

利用EXCEL制作会动的时钟-趣帮office教程网

图2 新建一个XLSM文件

第二步,准备辅助数据。A3:F123中的数据。

利用EXCEL制作会动的时钟-趣帮office教程网

图3 Sheet2中A3:F123单元格区域的数据

第三步,在H1中添加公式:="时间:" & TEXT(NOW(),"hh:mm:ss")

G4:=IF(HOUR(NOW())>12,(HOUR(NOW())-12 MINUTE(NOW())/60)*30,(HOUR(NOW()) MINUTE(NOW())/60)*30)

表示取当前时间对应小时的刻度。

G5:1

小时指针的宽度

G6:=360-G4-G5

H4:=MINUTE(NOW())*6

H5:0.5

H6:=360-H4-H5

I4:=SECOND(NOW())*6

I5:0

I6:=360-I4-I5

第四步,将B4:F123选中,点击【插入】-》【圆环图】。操作如下图:

利用EXCEL制作会动的时钟-趣帮office教程网

图4 插入圆环图

第五步,处理圆环图。

<1> 将内圈2个小圆环图设置为无填充,无实线。这里是为了区分钟表的时针、分针、秒针的长度所做的辅助圆环。等下小伙伴们就会明白为什么这么做。

利用EXCEL制作会动的时钟-趣帮office教程网

图5 设置内圈圆环格式

<2> 设置外圈三个圆环的格式。最外圈如下图:

利用EXCEL制作会动的时钟-趣帮office教程网

图6 最外圈格式

第三个内圈设置无填充和无实线,次外圈添加数据标签。

利用EXCEL制作会动的时钟-趣帮office教程网

图7 设置第2个第3个外圈

设置第2个内圈的标签格式,同时设置为无填充和无线条,如下:

利用EXCEL制作会动的时钟-趣帮office教程网

图8 生成总表时针标签

添加时分秒数据进入图表中,首先添加时针。操作如下,为了演示方便我先将时针的指针大小设置为20.

利用EXCEL制作会动的时钟-趣帮office教程网

图9-1

利用EXCEL制作会动的时钟-趣帮office教程网

图9-2

利用EXCEL制作会动的时钟-趣帮office教程网

图9-3

同理,我们可以将分针和秒针也放进图标中,这里,EK就简单略过,直接实现了。小伙伴们可以按照时针的输入方法进行放入。图10 为实现后的效果:

利用EXCEL制作会动的时钟-趣帮office教程网

图10 钟表图

我们为单元格H1添加公式:="时间:" & TEXT(NOW(),"hh:mm:ss") 并且为当前图表添加标题,标题内容为H1(当前时间)中的内容:

利用EXCEL制作会动的时钟-趣帮office教程网

图11 添加时间

第六步,打开ALT F11组合键,也可以点击【开发工具】-》【查看代码】。添加一个模块。添加如下代码:

Sub StartTimer()

Sheet2.Range("h1") = "=""时间:"" & TEXT(NOW(),""hh:mm:ss"")"

Application.OnTime Now TimeValue("00:00:01"), "StartTimer"

End Sub

Sub EndTimer()

On Error Resume Next

Application.OnTime Now TimeValue("00:00:01"), "StartTimer", , False

End Sub

如下图所示:

利用EXCEL制作会动的时钟-趣帮office教程网

图12 添加代码

插入两个按钮-【开始时钟】【停止时钟】:指定宏分别为-》StartTimer和-》EndTimer:

利用EXCEL制作会动的时钟-趣帮office教程网

图13 添加按钮

咱们来看一下实现效果,

利用EXCEL制作会动的时钟-趣帮office教程网

图14 时钟效果图

我们对时钟界面进行稍微修正美化一下,就可以看到图1 的效果了。

利用EXCEL制作会动的时钟-趣帮office教程网

最后,感谢小伙伴们的观看,我是EK。如果上述内容能够帮助到你们,希望你们能点赞,关注,评论,转发,你们不清楚的地方我会尽力为大家解答,谢谢大家的支持。我会给大家带来更多关于EXCEL的小技巧。