excel中级教程-如何设置提醒功能

在Excel中，针对日期列进行实时监控至关重要。可通过两种直观易行的策略与当前日期或通知（如到货）日期对比，实现提醒功能。敬请期待这两种实用技巧的演示，希望能对您有所帮助。

1、 首先模拟excel的内容，内容随意输入，这里将B列设置为保质期，就是提醒的日期列。设定：B列与当前日期进行对比，如果当前日期超过B列日期，则会在C列出现“是”字样的设置，用来提醒。没亲

2、 设定好之后，直接启动VBA编辑环境，在环境里面编写代码，不用怕，一步一步说明白。首先按快捷键“Alt+F11”启动VBA编辑器。第一次打开，在左面是看不到模块，以及模块1的。常规excel开启后，会可看到“sheet1”、“sheet2”、“sheet3”。(注：我的已修改，界面有所不同)

3、 在左侧导航窗口，点击右键，即可在弹出的菜单中，选中“插入”，并在子菜单中，选中“模块”，即可添加新的模块在VBA导航窗格，添加之后，双击模块，可在右侧进行代码录入。

4、 我的代码编辑背景颜色已更改，所以你的界面可能和我不一样，不过不影响代码的录入，现在创建一个”子过程“。利用函数”sub”+空格+过程名称即可创建。

5、 设立2个变量，“Dim i As Long、Dim m_o As Integer”，所谓变量，就是对一些数字的别名。用一个名字代表一个事物。比如将数字1，我称呼他为“i”，用代码表示，首先声明有个事物，他叫“i”，Dim i As Long，然后i=1，就可以把i当作1来称呼。但是这个数字1，是可以改变的，我也可以叫“i”为2，代码表示就是i=2。

6、 介绍一个循环的语句：While。标准格式为：While 条件Wend举例说明，当小明跑50米，没有跑到终点不停下来。那么就应该这样写：while 小明开始跑，跑到50米终点?小明又跑了10米Wend ’小明常爬眠是否跑到了终点，如果没有跑到终点，返回继续跑。"小明跑到了终点

7、 接着了解一个神秘的事物《Cells(i, 1).Value》，这个在VBA当中，就被称为单元格的值，简单英文翻译即可知道。

8、 Cells有一个使用方法，Cells(开关1，开关2)，其中开关1代表表格中的行，开关2代表表格中的列，第一行第一列所在单元格，就是A1，翻译成VBA代码，就变成Cells(1,1)。要获得单元格A1的值或者叫内容，就是Cells(1,1).value。结合前面的while循环和事物名称，就可以合体称这样：

9、 VBA里面还有个厉害的事物，可以把日期按照特定格式显示出来：Format。比如：If Format(Now(), "YYYY-MM-DD") > Format(Cells(i, 2), "YYYY-MM-DD") Then。这句话翻译过来就是：如果格式(现在(),“YYYY-MM-DD”)>耻孝格式(单元格(i,2),“YYYY-MM-DD”)。这里是机器翻译，说人话就是，如果当前系统时间 大于 第i行，第2列的单元格的日期的时候，则...。就是这个意思啦。

10、 我们将过期的旁边，用提示框并标注为“是”，以作为提醒信息。然后认识一个Msgbox，这也是个厉害的角色，只要在VBA环境中，输入这个关键字“MsgBox”，并空格后输入内容，系统就能神奇的出现一个提示框，弹出一个信息出来。

11、 【修改单元格的内容】这依旧需要使用到之前的Cell角色，只要告诉cell在第几行，第几列，然后内容是什么，就能在vba的环境下，修改单元格的内容，用vba代码表示：Cells(i, 3) = "是"。

12、 观察下完整的VBA代码图，以及运行状态图：13为了方便运行，在界面上插入一个“形状”，将刚才设置的VBA代码，关联到excel工作表格中去。