用Excel制作带读秒倒计时的动态海报
个人微信号 | （ID：LiRuiExcel520）
微信服务号 | 跟李锐学Excel（ID：LiRuiExcel）
微信公众号 | Excel函数与公式（ID：ExcelLiRui）
牛年就快到来啦，首先祝所有粉丝们牛年大吉！
今天来讲个在Excel里面制作带读秒倒计时的动态海报的技术，咱们不妨就当前时间到大年初一的时间做个读秒倒计时。
做好的效果如下图所示（底图和文字都可以自定义设置）
当然，如果你不想从大年初一倒计时，也可以改成任意时间作为终点，比如上班的第一天，这些都是支持的。
今天我就把这张动态海报作为实际案例，在下文中介绍一下操作步骤和制作方法。
本教程内容担心记不全的话，可以分享到朋友圈给自己备份一份。
首先要准备数据源，包括海报底图和终点时间。
准备数据源
比如要计算当前时间到大年初一的倒计时，就把大年初一的日期2021-2-12日定为终点，填写到A2单元格，如下图所示。
一句话解析：
A2单元格的显示格式，可以在Excel单元格自定义格式，也可以写到vba代码中。
然后在Excel工作表区域插入你要作为海报背景的底图，本案例中我选了一张“牛年大吉”的简单图片，你可以更换为自己喜爱的任何图片。
输入VBA代码
Alt+F11进入VBE界面插入模块，输入VBA代码如下图所示
Sub dm()Sheets("读秒").[a5] = Date + TimeSheets("读秒").[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编译界面，如何插入模块和代码，之前写过教程详细介绍了步骤，还不会的同学请进下文查看具体步骤和图示说明。
在海报中插入动态时间
在准备的海报中插入文本框，和单元格创建关联，如下图所示。
做好当前时间的关联，再插入读秒倒计时的关联，分别指向对应的单元格，如下图所示。
然后把文件另存为.xlsm格式，执行代码即可启动读秒倒计时，大功告成，就这么简单。
希望这篇文章能帮到你！
>>推荐阅读 <<
（点击蓝字可直接跳转）