excel自定义格式分钟计时_用Excel制作带读秒倒计时的动态海报

原标题：用Excel制作带读秒倒计时的动态海报

牛年就快到来啦，首先祝所有粉丝们牛年大吉！

今天来讲个在Excel里面制作带读秒倒计时的动态海报的技术，咱们不妨就当前时间到大年初一的时间做个读秒倒计时。

做好的效果如下图所示(底图和文字都可以自定义设置)

当然，如果你不想从大年初一倒计时，也可以改成任意时间作为终点，比如上班的第一天，这些都是支持的。

今天我就把这张动态海报作为实际案例，在下文中介绍一下操作步骤和制作方法。

首先要准备数据源，包括海报底图和终点时间。

准备数据源

比如要计算当前时间到大年初一的倒计时，就把大年初一的日期2021-2-12日定为终点，填写到A2单元格，如下图所示。

A2单元格的显示格式，可以在Excel单元格自定义格式，也可以写到vba代码中。

然后在Excel工作表区域插入你要作为海报背景的底图，本案例中我选了一张“牛年大吉”的简单图片，你可以更换为自己喜爱的任何图片。

输入VBA代码

Alt+F11进入VBE界面插入模块，输入VBA代码如下图所示

Sub dm( )

Sheets( "读秒").[a5]= Date + Time

Sheets( "读秒").[a8]= [a2] - [a5]

Sheets( "读秒").[a2].NumberFormatLocal = "yyyy-mm-dd h:mm:ss"

Sheets( "读秒").[a5].NumberFormatLocal = "yyyy-mm-dd h:mm:ss"

Sheets( "读秒").[a8].NumberFormatLocal = "d天 h时 m分 s秒"

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

End Sub

至于如何进入VBE编译界面，如何插入模块和代码，之前写过教程详细介绍了步骤，还不会的同学请进下文查看具体步骤和图示说明。

在2021年春晚排练单中VBA模糊筛选你喜爱的演员和节目

在海报中插入动态时间

在准备的海报中插入文本框，和单元格创建关联，如下图所示。

做好当前时间的关联，再插入读秒倒计时的关联，分别指向对应的单元格，如下图所示。

然后把文件另存为.xlsm格式，执行代码即可启动读秒倒计时，大功告成，就这么简单。

责任编辑：