Excel——如何实现高考倒计时效果

一、任务需求
制作一个高考倒计时效果 , 能自动刷新时间 。

Excel——如何实现高考倒计时效果

高考倒计时布局
视频加载中...二、解决思路
1、每年高考正常是6月6号、7号举行 。
2、利用高考时间减去当前时间,获取高考倒计时 。
3、统计格式为:天/时/分/秒 。
三、具体方法
(一)添加高考年份
在A1单元格中添加高考年份 “2023”,对齐方式为“右对齐”;C1单元格中添加文本“年高考倒计时”,对齐方式为“左对齐” 。
Excel——如何实现高考倒计时效果

添加高考年份
(二)获取倒计天数
1、在B3 单元格中输入公式:
=DATEDIF(TODAY(),A1&"-6-6","D")&"天"
2、公式解析
TODAY函数用来获取当前日期(包括年月日) 。
DATEDIF(当前日期,高考日期,“返回天数类型”)函数计算当前日期和高考日期之间的天数间隔 。
Excel——如何实现高考倒计时效果

获取倒计天数
(三)获取倒计时间
1、在C3 单元格中输入公式:
=DATE(A1,6,6)-NOW()
设置单元格格式为:hh"时"mm"分"ss"秒"
2、公式解析
NOW函数用来获取当前时间(包括年月日时分秒) 。
DATE(高考年份,高考月份,高考号数)函数计算当前日期和高考日期之间的天数间隔 。
两个函数相减获取到时间差,显示为序列号,因此需要设置单元格格式为 “日期” , 方可显示为正常日期时间 。
Excel——如何实现高考倒计时效果

获取倒计时间
Excel——如何实现高考倒计时效果

设置单元格格式
(四)添加VBA代码
在VBA工程界面中新建模块,并添加代码:
Sub 刷新()
Calculate
Application.OnTime NowTimeValue("00:00:01"), "刷新"
End Sub
(开发工具——VisualBasic——插入——模块——添加代码——关闭窗口)
Excel——如何实现高考倒计时效果

打开VBA工程界面
Excel——如何实现高考倒计时效果

在新建模块1中添加代码
(五)启用宏,并保存文件
1、在开发工具中执行刚新建的宏——刷新 。
(开发工具——宏——刷新——执行)
Excel——如何实现高考倒计时效果

启用宏
视频加载中...2、保存文件
因为“.xlsx”类型的文件无法保存宏 , 所以需要把做好的高考倒计时Excel文件另存为“.xlsm”类型的文件 。
Excel——如何实现高考倒计时效果

另存为“.xlsm”类型的文件


以上就是如何实现高考倒计时效果的方法,你学“废”了吗?
案例中涉及的函数 , 后续有专门讲解,请持续关注动态!
【Excel——如何实现高考倒计时效果】我是今日Excel与编程,想了解更多的Excel与编程知识请点赞并关注我

相关经验推荐