为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划vba合同到期提醒如何计算合同到期日期如图3-13所示，该表为某公司员工资料表。其中，G列为各个员工最后一次签订合同日期，所有的员工合同签定期限为3年。如何利用VBA批量计算所有员工的合同到期日？解决方案利用VBA中的DateAdd函数可以在指定的日期基础上加上指定的年、月或者日。操作方法步骤1按组合键【Alt+F11】打开VBE。步骤2选择菜单“插入”“模块”，并输入以下代码：1.Sub计算合同到期()2.4.6.8.10.变量声明3.DimRowNAsLong循环遍历各个记录5.ForRowN=2ToCells(,A).End(xlUp).Row使用DateAdd函数在原有基础上增加3年以获取日期7.Cells(RowN,G).Value=DateAdd(yyyy,3,Cells(RowN,F).Value)-19.NextRowNEndSub步骤3返回工作表界面，在功能区的“开发工具”选项卡中单击【宏】按钮，并执行过程“计算合同到期”，即可得到合同到期日，如图3-14所示。原理说明DateAdd函数当需要在某个日期或时间的基础上增加或减少某个日期或时间间隔时，可以使用DateAdd函数。DateAdd函数可以返回一个日期或时间，其语法为1.DateAdd(interval,number,date)其中，参数interval是一个文本表示需要增加的日期间隔的种类，可以为表3-5中的任意一个参数。参数number为按照interval设置的间隔的值。参数date表示日期或时间的基础。如本例需要在某个日期dDate的基础上增加3年，可以使用：1.DateAdd(y,3,dDate)表3-5DateAdd函数的interval参数当使用DateAdd函数增加月份或者季度时，若原日期的日超过增加后所得到的日期所在的月份的总天数，则函数将会返回该月的最后一天。因而以下表达式将返回XX年4月30日。1.DateAdd(q,1,DateSerial(XX,1,31)2.DateAdd(m,1,DateSerial(XX,3,31)用Excel巧妙设置定时提醒在工作中，经常要打电话通知相应的人员参加各种会议等工作，有时工作一忙，就忘记通知而影响正常开会。由于每天都用Excel为登记相应的数据，于是，我就用Excel设置了一个定时提醒的功能。1、启动Excel，新建一文档，取名保存。2、按Alt+F11组合键进入VBA编辑状态。3、在左侧工程资源管理器窗口中，选中VBAProject(提醒.xls)选项，执行插入模块命令，插入一个新模块。4、将下述代码输入到右侧的编辑区域中：Subauto_open()设置一个自动运行的宏-auto_openTimeValue(08:30:00),tx设置提醒时间-08:30:00，设置调用提醒宏-tx。TimeValue(09:30:00),tx再设置提醒一次。EndSubSubtx()设置一个显示提醒消息的宏。msg=MsgBox(通知张三评委参加会议！,vbInformation,赶快打电话)设置提醒对话框中的消息和标题。EndSub注意：上述代码中，英文单引号及其后面的字符是对代码的解释，在实际输入时可以不需要。如果设置多个提醒宏，并在自动运行宏中分别设置调用的时间，可以实现多个消息的定时提醒。5、输入完成后，退出VBA编辑状态，保存工作簿文档。6、以后，一上班，就启动Excel，打开上述工作簿文档。设定时间一到，系统即刻弹出所示的提示框，这下不会忘记了吧。如何设置excel到期自动提醒功能1、启动Excel，新建一文档，取名保存。2、按“Alt+F11”组合键进入VBA编辑状态。3、在左侧“工程资源管理器”窗口中，选中“VBAProject(提醒.xls)”选项，执行“插入模块”命令，插入一个新模块。4、将下述代码输入到右侧的编辑区域中：Subauto_open()设置一个自动运行的宏auto_TimeValue(08:30:00),tx设置提醒时间08:30:00，设置调用提醒宏tx。TimeValue(09:30:00),tx再设置提醒一次。EndSubSubtx()设置一个显示提醒消息的宏。msg=MsgBox(通知张三、李四、王五评委参加下午评标！,vbInformation,赶快打电话)设置提醒对话框中的消息和标题。EndSub注意：上述代码中，英文单引号及其后面的字符是对代码的解释，在实际输入时可以不需要。如果设置多个提醒宏，并在自动运行宏中分别设置调用的时间，可以实现多个消息的定时提醒。5、输入完成后，退出VBA编辑状态，保存工作簿文档。6、以后，一上班，就启动Excel，打开上述工作簿文档。设定时间一到，系统即刻弹出提示框。目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。