一、任务需求
制作一个高考倒计时效果,能自动刷新时间。
高考倒计时布局
二、解决思路
1、每年高考正常是6月6号、7号举行。
2、利用高考时间减去当前时间,获取高考倒计时。
3、统计格式为:天/时/分/秒。
三、具体方法
(一)添加高考年份
在A1单元格中添加高考年份 “2023”,对齐方式为“右对齐”;C1单元格中添加文本“年高考倒计时”,对齐方式为“左对齐”。
添加高考年份
(二)获取倒计天数
1、在B3 单元格中输入公式:
=DATEDIF(TODAY(),A1&"-6-6","D")&"天"
2、公式解析
TODAY函数用来获取当前日期(包括年月日)。
DATEDIF(当前日期,高考日期,“返回天数类型”)函数计算当前日期和高考日期之间的天数间隔。
获取倒计天数
(三)获取倒计时间
1、在C3 单元格中输入公式:
=DATE(A1,6,6)-NOW()
设置单元格格式为:hh"时"mm"分"ss"秒"
2、公式解析
NOW函数用来获取当前时间(包括年月日时分秒)。
DATE(高考年份,高考月份,高考号数)函数计算当前日期和高考日期之间的天数间隔。
两个函数相减获取到时间差,显示为序列号,因此需要设置单元格格式为 “日期”,方可显示为正常日期时间。
获取倒计时间
设置单元格格式
(四)添加VBA代码
在VBA工程界面中新建模块,并添加代码:
Sub 刷新()
Calculate
Application.OnTime Now + TimeValue("00:00:01"), "刷新"
End Sub
(开发工具——VisualBasic——插入——模块——添加代码——关闭窗口)
打开VBA工程界面
在新建模块1中添加代码
(五)启用宏,并保存文件
1、在开发工具中执行刚新建的宏——刷新。
(开发工具——宏——刷新——执行)
启用宏
2、保存文件
因为“.xlsx”类型的文件无法保存宏,所以需要把做好的高考倒计时Excel文件另存为“.xlsm”类型的文件。
另存为“.xlsm”类型的文件
以上就是如何实现高考倒计时效果的方法,你学“废”了吗?
案例中涉及的函数,后续有专门讲解,请持续关注动态!
我是今日Excel与编程,想了解更多的Excel与编程知识请点赞并关注我