Excel可以制作精美的电子钟你知道吗
2023/6/8 来源:不详今天跟大家分享制作精美电子钟的制作方法。相信大家一定会感兴趣的。
先来看下最终效果:
看下制作步骤:
在电子钟隔壁表内A1、A2、A3、A4放置备用图片:
公式里定义名称:公式为=OFFSET(sheet4!$A$1,电子钟!$C$1,)
3.在电子钟表格中插入任意两张图片和微调框。
将一张图片关联到图片表的A1单元格(这里存放实时的时间)
将另张图片关联到上面定义的名称P
将微调框的链接单元格指向定义的名称P的offset指定的预变动单元格c1
ALT+F11进入代码界面:
选中SHEET4输入如下代码并按F5运行。
代码如下:
Suba()
DimdTimeAsVariant
dTime=Now+TimeValue("00:00:01")
Application.OnTimedTime,"Sheet4.a",,True
WithRange("a1")
.Value=Now
.NumberFormat="hh:mm:ss"
EndWith
EndSub
回到电子钟表格就可以看到文章前面的演示效果了。
只要按微调按键就可以切换图片了,时间是实时在变动更新的。效果不错吧?