EXCEL表格到期提醒

来源：百度知道 编辑：UC知道 时间：2024/05/10 11:04:52
如李明的合同期限是20090417，如何在EXCEL表格中建立提前两个月提醒的模式，一打开EXCEL表格就可以收到李明的合同快到期限的提醒？多谢！有vba的编程也可以，多谢！
cdjie@163.com多谢阿

Private Sub Worksheet_Activate()
If (Date - [a1]) < 60 Then
MsgBox "离合同到期时间只剩下" & (Date - [a1]) & "天了"
End If
End Sub

把[A1]换成你的日期所在的位置就可以了
也可以批量提醒,比如假设你的 客户名称放在A列 合同到期时间存放在E列
则有

Private Sub Worksheet_Activate()
t = ""
For i = 2 To [e65536].End(xlUp).Row
If (Date - Cells(i, 5)) < 60 Then
t = t & Cells(i, 1) & "的合同离到期时间只剩下" & (Date - Cells(i, 5)) & "天了" & Chr(13)
End If
Next
If t = "" Then Exit Sub
t = "请注意," & Chr(13) & t
MsgBox t
End Sub

请自己做适当的修改以满足需求
希望对你有所帮助

很粗糙 也许不太合理 但是可以达到你的意思 ，if函数和now函数结合，具体不好说，有邮箱的话 我做一个 给你自己看