投稿
  1. excel,word,ppt使用教程网首页
  2. Word Excel PPT教程

Excel制作倒计时牌，3步搞定，让你秒变大神

Word Excel PPT爱好者 • • Word Excel PPT教程 • 阅读 132

Excel制作倒计时牌，3步搞定，让你秒变大神插图1

给大家分享一个实用好玩的技巧，在Excel中制作倒计时牌，下面就来一起学学吧！

先上效果图：

Excel制作倒计时牌，3步搞定，让你秒变大神插图3

在日常工作中，经常会有一些倒计时的应用，例如距高考还有N天、距项目结束还有N天、下班还有N小时，更重要的是下一个周末还有N天就到。

下面开始步骤拆解。

因为我从周一开始计算的，周末的日期为2020年5月30日0时，所以在C2单元格输入以下公式，得到剩余的整数天数。

【=INT(“2020-5-30”-NOW())&”天”】

Excel制作倒计时牌，3步搞定，让你秒变大神插图5

在设置具体的时间前，我们先要设置一下单元格格式。

设置D2单元格自定义格式为：【hh小时mm分ss秒】

Excel制作倒计时牌，3步搞定，让你秒变大神插图7

然后在D2单元格中输入以下公式：【=”2020-5-30″-NOW()】

Excel制作倒计时牌，3步搞定，让你秒变大神插图9

此时，有了具体的时间，但是时间并不会自动刷新。

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

添加VBA代码：1、按住【Alt F11】，打开VBA编辑器，依次点击【插入】-【模块】，并且选中双击左侧【VBAProject】项目工程里我们刚插入的【模块1】

Excel制作倒计时牌，3步搞定，让你秒变大神插图11

2、在右侧的代码窗口中输入以下代码

Sub Macro1()

Application.OnTime Now TimeValue(“00:00:01″),”Macro1”

Calculate

End Sub

Private Sub workbook_open()

Macro1

End Sub

3、在左侧【VBAProject】项目工程双击【ThisWorkbook】，并在右侧弹出的窗口输入以下代码，然后按【F5】键就可以实现倒计时效果。

Private Sub workbook_open()

Call Macro1

End Sub

Excel制作倒计时牌，3步搞定，让你秒变大神插图13

最后一步将文件保存为Excel启用宏的工作簿，即xlsm格式，下次打开时就像开头的效果图一样啦

Excel制作倒计时牌，3步搞定，让你秒变大神插图15

看完上面的教程是不是觉得实用又好玩，看着时间一点一点减少，周末到来就越来越近。

以上就是今天分享的干货技巧，你学废了吗？

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 2305938578@qq.com 举报，一经查实，本站将立刻删除。本文网址：https://www.excelwordppt.com/word-excel-ppt/3209.html

赞 (0)
Word Excel PPT爱好者Word Excel PPT爱好者
0 0
上一篇 2023年9月28日 am10:15
下一篇 2023年9月28日 am10:47

相关推荐

发表评论

登录后才能评论