在日常生活和工作中,我们经常会应用一些倒计时来增强自己的紧迫感或兴奋感,例如距高考还有N天、距项目结束还有N天、下班还有N小时,距离下一个周末还有N天……今天就给大家分享一个实用又好玩的技巧:在Excel中制作具有动态效果的“倒计时”!接下来,我们就以周末倒计时为例,进行示例讲解。
设置天数
从周三开始计算,周六的日期为2021年8月28日,在B2单元格内输入公式:
=INT("2021-8-28"-NOW())&"天",即可显示当天距离周末的天数。
设置时间
在设置具体的时间几分几秒之前,我们要先设置C2单元格格式,将其设置为自定义格式:【hh小时mm分ss秒】。
1、选中C2单元格,鼠标右击选择【设置单元格格式】;
2、选择【数字】-【自定义】,在类型一栏输入:【hh小时mm分ss秒】,点击确定;
3、在C2单元格中输入公式:【="2021-8-28"-NOW()】,即可显示此时此刻距离周末的时间。
添加VBA代码
做完这些步骤,我们有了具体的天数和时间,但是这个天数和时间却还无法自动刷新。为什么呢?这是因为NOW函数属于易失性函数,如果在工作表中没有执行能够引发重新计算的操作,公式结果并不能自动实时刷新,因此,在这里我们需要添加一个定时刷新的VBA代码。具体操作如下:
1、VBA代码也就是Visual Basic的一种宏语言。在WPS的Excel中,我们可以点击【开发工具】-【WPS宏编辑器】,打开宏编辑器,然后依次点击【插入】-【模块】;
2、在左侧【工程】栏的【Project】里,双击刚插入的【Module1】,在右侧的代码窗口输入以下代码:
Sub Macro1()
Application.OnTime Now + TimeValue("00:00:01"),"Macro1"
Calculate
End Sub
Private Sub workbook_open()
Macro1
End Sub
3、选择【Workbook】,并输入以下代码,再按【F5】键即可可以实现倒计时效果:
Private Sub workbook_open()
Call Macro1
End Sub
4、最后将文件保存为【Microsoft Excel启用宏的工作簿】,即xlsm格式。
俗话说“一寸光阴一寸金,寸金难买寸光阴”,时间对于每个人来说都很宝贵。当我们看着时间一点一点的消失,是不是会更有紧迫感或兴奋感呢?用这样的倒计时效果也能提醒我们不要浪费时间,为下一刻做好准备。以上就是Excel中如何制作倒计时效果的教程,大家是不是觉得又好玩又实用呢?那就赶紧快学起来吧!