618好课狂欢，优惠不等人，早买早便宜

特推超级会员限时疯狂抢购

点击了解

支持微信公众号+小程序+APP+PC网站多平台学习

爱知趣的小伙伴们还记得我们【1-让应收账款显示提前预警】课程吗？

学会这技能以后，很多同学都说：”麻麻再也不用担心我会忘记提醒老板收钱啦！”

如果我告诉你，今天教你玩的是打开文件就弹窗提醒，你会不会有动力看下去呢？

其实这对我们来说，这要求根本不是事儿，因为我们会VBA啊！

为方便大家理解，原数据表做一个小的修改，只保留一列提示列，里面用的是函数公式来写的。

函数的意思是把最近5天的就要显示出来了，

规则明白以后，就开始来写代码吧！

代码写好了，先简单解释一下吧！

从数据表里能看数据从第4行开始到75行结束的，所以 for xrow=4 to 75

日期在数据表的d列，所以 用 Cells(xRow, "G").Value 来表示日期所在单元格

Date 返回系统当前日期，

mDay = Cells(xRow, "G").Value – Date 在工作表里写公式的话是 =G4-TODAY()  

用单元格的日期减系统日期也好理解，算出来赋值给mDay

代码图里都有注释就不做太多解释了，最容易抄错的地方是 第二个循环里的字符串拼接，注意 & 两边都要有空格哟。代码换行符 下划线 _ 前面也要有空格。

原理明白了，代码也写好了，那就开始体验儿时的乐趣看动画片吧。

第一集：效果演示：

好啦，这一集效果看到了，是不是有点酷炫呢？

有的小伙伴会问：公式设置的是5天的，vba里只设置了3天的？

因为公司里要收的钱太多了，提示5天的话，消息框都装不下了，所以打个折吧。

PS：可以根据自己喜好更改提示信息，前题是得先把代码吃进肚子消化了并且吸收了才行，若是吃不下、消化不良或吸收不好，记得来找我们诊断一下哟。

测试没问题了，就要开始做记它自动化的设置了，这个设置还是接着看动画片吧！

第二集，设置自动化

设置好以后，一定记得保存哟(按ctrl +ｓ)，接下来就是关闭文件，重新打开文件啦！！

继续看动画片吧(这一集是大结局哟，千万别走神)！！！！！！！！

若是第一次使用宏的话，会有个开启宏的提示，版本不同提示不会，注意看一下。

这样的效果比起用眼睛去一个个的找更方便吧！！！！

这是基础教程，不会做得太漂亮(借口是要找的)，学会以后，可以继续深入优化，让它更加智能哟！！！

下一季会更加精彩(打开任意Excel就弹窗，觉得还不过瘾再送个打开任意word也弹窗行不行？)

有没有小兴奋，小冲动，瞬间感觉自己也会vba了？没错，vba其实也可以很简单(因为这些功能本身就简单)

使用wps的小伙伴们，wps是不能用vba的哟(土豪版请无视)

Excel学习交流群Q群：582326909 欢迎加入

(群共享，配套练习课件，提供答疑)

今天的分享就到这，如果教程对大家有用，希望大家多多分享点赞支持小编哦！你的每一次点赞和转发都是支持小篇坚持原创的动力。 

推荐学习★★★★★

Excel教程：吐血整理，70个精选实用Excel技巧(↶点击学习)

Excel教程:100篇精华原创教程汇集！收藏慢慢学(↶点击学习)

推荐Office学习关注

(PPT WORD EXCEL)