excel学习库

今天跟大家分享制作精美电子钟的制作方法。相信大家一定会感兴趣的。

先来看下最终效果：

看下制作步骤:

1. 在电子钟隔壁表内A1、A2、A3、A4放置备用图片：

   
   

   

   
   

2. 公式里定义名称：公式为 =OFFSET(sheet4!$A$1,电子钟!$C$1,)
   

3.在电子钟表格中插入任意两张图片和微调框。

将一张图片关联到图片表的A1单元格（这里存放实时的时间）

将另张图片关联到上面定义的名称P

将微调框的链接单元格指向定义的名称P 的offset指定的预变动单元格c1

ALT+F11 进入代码界面：

选中SHEET 4 输入如下代码并按F5运行。

代码如下：

Sub a()

Dim dTime As Variant

dTime = Now + TimeValue("00:00:01")

Application.OnTime dTime, "Sheet4.a", , True

With Range("a1")

.Value = Now

.NumberFormat = "hh:mm:ss"

End With

End Sub

回到电子钟表格就可以看到文章前面的演示效果了。

只要按微调按键就可以切换图片了，时间是实时在变动更新的。效果不错吧？