文档介绍：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(, 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,新建一文档,取名保存()。
2、按Alt+F11组合键进入VBA编辑状态。(图片较大,请拉动滚动条观看)
3、在左侧工程资源管理器窗口中,选中VBAProject()选项,执行插入模块命令,插入一个新模块。
4、将下述代码输入到右侧的编辑区域中:
Sub auto_open() '设置一个自动运行的宏--auto_open
TimeValue(08:30:00), tx '设置提醒时间--08:30:00(可以根据需要修改),设置调用提醒宏--tx。
TimeValue(09:30:00), tx '再设置提醒一次。
End Sub
Sub tx() '设置一个显示提醒消息的宏(名称要与上
述自动运行宏中调用的名称一致)。
msg = MsgBox(通知张三评委参加会议!, vbInformation, 赶快打电话) '设置提醒对话框中的消息和标题(前面是消息内容,后面是对话框标题,请根据需要输入)。
End Sub
注意:
①上述代码中,英文单引号及其后面的字符是对代码的解释,在实际输入时可以不需要。
②如果设置多个提醒宏(tx1、tx2……),并在自动运行宏中分别设置调用的时间,可以实现多个消息的定时提醒。
5、输入完成后,退出VBA编辑状态,保存工作簿文档。
6、以后,一上班,就启动Excel,打开上述工作簿文档。设定时间一到,系统即刻弹出所示的提示框,这下不会忘记了吧。
篇三:如何设置Excel自动提醒功能
如何设置excel到期自动提醒功能
1、启动Excel,新建一文档,取名保存(如“”)。
2、按“Alt+F11”组