vba合同到期提醒.docxVIP

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_open　　TimeValue(08:30:00),tx设置提醒时间--08:30:00，设置调用提醒宏--tx。　　TimeValue(09:30:00),tx再设置提醒一次。　　EndSub　　Subtx()设置一个显示提醒消息的宏。　　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注意：①上述代码中，英文单引号及其后面的字符是