如何多条件设置合同到期提醒功能？

真麻烦

      我是搞人事的，在工作中常常会遇到合同到期需要续签，这张表中有三个到期时间，也就是为今后的续签为准备的，查找三个到期时间与当日时间最近的一个日期做为有效日期（如张一，第二次签订时间13-8-5有效），具体条件附见附件 Book1.rar (7.6 KB, 下载次数: 65)

2013-7-29 14:50 上传

点击文件名下载附件

grf1973

1. Private Sub Worksheet_Activate()
   
2.    r = [a65536].End(3).Row
   
3.     For i = 5 To r
   
4.         day1 = Cells(i, 3): day2 = Cells(i, 5): day3 = Cells(i, 7)
   
5.          Cells(i, "H").Interior.ColorIndex = 0
   
6.         If day1 = "/" Or day2 = "/" Or day3 = "/" Then
   
7.             Cells(i, "H") = "无需"
   
8.         Else
   
9.             maxday = day1
   
10.             If day2 > maxday Then maxday = day2
    
11.             If day3 > maxday Then maxday = day3
    
12.             expday = maxday - Date
    
13.             If expday < 60 Then Cells(i, "H") = "快到期": Cells(i, "H").Interior.Color = vbYellow
    
14.             If expday < 0 Then Cells(i, "H") = "已过期": Cells(i, "H").Interior.Color = vbRed
    
15.         End If
    
16.     Next
    
17. End Sub

复制代码

grf1973

见附件，可手动更新，也可激活当前工作表更新。

真麻烦

首先，非常感谢楼上的帮忙，我试用了一下这个VBA，感觉存在着一个问题，就是如果我把王二的到劳动合同续签到2014-5-5，也就是说在到期日期里填入2013-5-5时，再按按钮1，底纹是白了，但还存在着“已过期“这几个字

grf1973

哦，那在Cells(i, "H").Interior.ColorIndex = 0
上面加一句：Cells(i, "H")＝""

grf1973

或者两句并一句：Cells(i, "H").clear

真麻烦

OK了，谢谢楼上，如果不用VBA有没有什么办法

boy461205160

路过，支持一下