咔片PPT · AI自动生成演示文稿,模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word,高效应对学习与办公

一、任务需求

制作一个高考倒计时效果,能自动刷新时间。

高考倒计时布局

视频加载中...

二、解决思路

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与编程知识请点赞并关注我