EXCEL表格到期提醒

合同

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

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

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

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