vba合同到期提醒

vba合同到期提醒 如何计算合同到期日期 如何计算合同到期日期 如图3-13 所示，该为某公司员工资料表。其中，G 列为各个员工最后一次签订合同日期，所有的员工合同签定期限为3 年。如何利用VBA 批量计算所有员工的合同到期日, 解决 利用VBA 中的DateAdd 函数可以在指定的日期基础上加上指定的年、月或者日。 操作方法 步骤1 按组合键【Alt+F11】打开VBE。 步骤2 选择菜单“插入”?“ 模块”，并输入以下代码: 1. Sub 计算合同到期() 2. 4. 6. 8. 10. '变量声明3. Dim RowN As Long'循环遍历各个记录5. For RowN = 2 To Cells(Rows.Count, A).End(xlUp).Row'使用DateAdd函数在原有基础上增加3年以获取日期7. Cells(RowN, G).Value = DateAdd(yyyy, 3, Cells(RowN, F).Value)- 19. Next RowNEnd Sub 步骤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-5 DateAdd 函数的interval 参数 当使用DateAdd 函数增加月份或者季度时，若原日期的日超过增加后所得到的日期所在的月份的总天数，则函数将会返回该月的最后一天。因而以下表达式将返回2012 年4 月30 日。 1. DateAdd(q, 1, DateSerial(2012, 1, 31)) 2. DateAdd(m, 1, DateSerial(2012, 3, 31)) 篇二:用Excel巧妙设置定时提醒 用Excel巧妙设置定时提醒 在工作中，经常要打电话通知相应的人员参加各种会议等工作，有时工作一忙，就忘记通知而影响正常开会。 由于每天都用Excel为登记相应的数据，于是，我就用Excel设置了一个定时提醒的功能。 1、启动Excel，新建一文档，取名保存(如提醒.xls)。 2、按Alt+F11组合键进入VBA编辑状态。 (图片较大，请拉动滚动条观看) 3、在左侧资源管理器窗口中，选中VBAProject(提醒.xls)选项，执行插入模块命令，插入一个新模块。 4、将下述代码输入到右侧的编辑区域中: Sub auto_open() '设置一个自动运行的宏--auto_open Application.OnTime TimeValue(08:30:00), tx '设置提醒时间--08:30:00(可以根据需要修改)，设置调用提醒宏--tx。 Application.OnTime TimeValue(09:30:00), tx '再设置提醒一次。 End Sub Sub tx() '设置一个显示提醒消息的宏(名称要与上 述自动运行宏中调用的名称一致)。 msg = MsgBox(通知张三评委参加会议～, vbInformation, 赶快打电话) '设置提醒对话框中的消息和标(前面是消息内容， 后面是对话框标题，请根据需要输入)。 End Sub 注意:?上述代码中，英文单引号及其后面的字符是对代码的 解释，在实际输入时可以不需要。 ?如果设置多个提醒宏(tx1、tx2„„)，并在自动运行宏中分 别设置调用的时间，可以实现多个消息的定时提醒。 5、输入完成后，退出VBA编辑状态，保存工作簿文档。 6、以后，一上班，就启动Excel，打开上述工作簿文档。设定时 间一到，系统即刻弹出所示的提示框，这下不会忘记了吧。 篇三:如何设置Excel自动提醒功能 如何设置excel到期自动提醒功能 1、启动Excel，新建一文档，取名保存(如“提醒.xls”)。 2、按“Alt+F11”组合键进入VBA编辑状态。 3、在左侧“工程资源管理器”窗口中，选中“VBAProject(提醒.xls)” 选项，执行“插入模块”命令，插入一个新模块。 4、将下述代码输入到右侧的编辑区域中:Sub auto_open() '设置一个自动运行的宏——auto_openApplication.OnTime TimeValue(08:30:00), tx '设置提醒时间——08:30:00(可以 根据需要修改)，设置调用提醒宏——tx。Application.OnTime TimeValue(09:30:00), tx '再设置提醒一次。End SubSub tx() '设置一个显示提醒消息的宏(名称要与上述自动运行宏中调 用的名称一致)。msg = MsgBox(通知张三、李四、王五评委参加下 午评标～, vbInformation, 赶快打电话) '设置提醒对话框中的消息和标题(前面是消息内容，后面是对话框标题，请根据需要输入)。End Sub注意:?上述代码中，英文单引号及其后面的字符是对代码的解释，在实际输入时可以不需要。?如果设置多个提醒宏(tx1、tx2„„)，并在自动运行宏中分别设置调用的时间，可以实现多个消息的定时提醒。5、输入完成后，退出VBA编辑状态，保存工作簿文档。 6、以后，一上班，就启动Excel，打开上述工作簿文档。设定时间一到，系统即刻弹出提示框。