Excel实例详解之倒计时-excel-PHP中文网

本篇文章给大家带来了关于excel的相关知识，其中主要介绍了怎么制作一个倒计时牌的相关内容，下面一起来看一下，希望对大家有帮助。

相关学习推荐：excel教程

在日常工作中，经常会有一些倒计时的应用，例如常见的距高考还有n天、距项目结束还有n天等。使用Excel中的日期函数结合强制刷新的VBA代码，就能制作出倒计时牌。

先来看效果：

+1.gif

接下来一起看看具体的操作步骤：

步骤1 假设假期结束日期为2022年9月14日0时，在C2单元格输入以下公式，得到剩余的整数天数。

=INT("2022-9-14"-NOW())&"天"

步骤2 设置D2单元格自定义格式为：

hh小时mm分ss秒

然后在D2单元格中输入以下公式：

="2022-9-14"-NOW()

虽然NOW函数属于易失性函数，但是如果在工作表中没有执行能够引发重新计算的操作，公式结果并不能自动实时刷新，因此需要添加定时刷新的VBA代码。

阿拉丁·Excel 图表生成器

Excel 数据可视化图表生成器 - 把 Excel/表格数据一键转为柱状图、折线图、饼图、雷达图、堆叠柱状图、散点图、面积图、环形图、气泡图、极坐标图、水平柱状图、柱+线组合双轴图。支持数据透视后绘图(--pivot),输出交互式 HTML(可悬停查看数值、一键下载 PNG)与静态 PNG(可嵌入文档/PPT)。提供两套配色方案: cn-stock(涨红跌绿, 金融财报默认) 与 vibrant(明亮风格, 适合演示报告)。当用户提到数据可视化、画图、图表、走势图、占比图、趋势图、对比图、透视表、Exc

下载

步骤3 按组合键打开VBE编辑器，依次单击【插入】→【模块】命令，在【工程资源管理器】中单击选中刚刚插入的“模块1”，在右侧的代码窗口中输入以下代码。

Sub Macro1()
Application.OnTime Now + TimeValue("00:00:01"),"Macro1"
Calculate
End Sub
Private Sub workbook_open()
Macro1
End Sub

代码中的”00:00:01″，表示刷新时间为1秒，实际使用时可根据需要设置。例如要设置刷新时间为1分钟，可将此部分修改为”00:01:00″。

步骤4 在【工程资源管理器】中单击选中“ThisWorkbook”，在右侧的代码窗口中输入以下代码，然后按F5键，即可在单元格中实现倒计时效果。

Private Sub workbook_open()
Call Macro1
End Sub

+2.gif

最后将文件保存为Excel启用宏的工作簿，即xlsm格式。

再次打开文件时，如果出现如图所示的安全警告，记得要点击【启用内容】按钮哦。

制作完成之后，你就可以打开Excel，看着时间一点点的减少，对某个人的思念也越来越强烈……