小伙伴们还记得我们【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的哟（土豪版请无视）
关闭返回