先来看下最终效果:
看下制作步骤:
在电子钟隔壁表内A1、A2、A3、A4放置备用图片:
公式里定义名称:公式为 =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
回到电子钟表格就可以看到文章前面的演示效果了。
只要按微调按键就可以切换图片了,时间是实时在变动更新的。效果不错吧?
联系客服