EXCEL表格到期提醒

EXCEL表格到期提醒

问题补充说明：如李明的合同期限是20090417，如何在EXCEL表格中建立提前两个月提醒的模式，一打开EXCEL表格就可以收到李明的合同快到期限的提醒？多谢！有vba的编程也可以，多谢！

Privat他角重担死么温局第立要eSubWorksheet_Activate(来自)

If(Date-[a360问答1])<60Then

MsgB沉伤定给河角却果群多套ox"离合同到期时间只剩下"&(Date-[a1])&"天了"

EndIf

E讨投信ndSub

把[A1]换成你的日期所在的位置就可以了

也可以批量提醒,比如假设你的客户名称放在A列合同到期时间存放在E列

则有

PrivateSubWorksheet_Activate()

t=""

Fori赶渐情款倒谓=2To[e65536]展通可死.End(xlUp).Row

If(Date-Cells(i,5))<60Then

t=t&Cells(i,1)&"的合同离到期时间只剩下"&(Date-Cells(i,5))&"天了"&Chr(13)

EndIf

Next

Ift=""ThenExitSub

t="请注意,"&Chr(13)&t

MsgBox世压雨会渐爱范t

EndSub

请自己做适当的修改以满足需求

希望对你有所帮助

标签：EXCEL,表格,到期