在EXCEL中设置合同到期提醒功能(如图)的步骤:
1、合同签订日期、合同到期日期、今日日期里单元格里的数值必须是日期类型;
今日日期C列下所有的单元格:输入=TODAY();
合同剩余日期:D2里输入=B2-C2,然后鼠标悬停在D2单元格右下角,当鼠标形状变成实心十字型时,向下拖拉;
2、选中D列里的数据区域:如例图选择D2:D4,点开始菜单——条件格式——突出显示单元格规则——其他规则;
3、在编辑规则说明下,选择【单元格值】,【小于或等于】,输入0,点格式;
4、点填充选项卡,选择红色,点确定;
5、返回到新建格式规则,点确定,此时可以看到当合同到期或者过期时,合同剩余日期里的单元格显示为红色。
自己网上查查,到期提醒,就是计算这个合同的开始时间,然后输入一个到期时间,然后获取今天的时间,如果是到期时间。那就提醒。一般设置一个月后到期提醒,一个星期后到期提醒。一天后到期提醒,这么多
写vba。 用2个sheet。 第一个查询页,第二个放合同信息。不过我就不能帮你写了。花时间....
=====================================================================
在Excel中,按下 Ctrl+F11 组合键,进入到VBA代码编写窗口,然后,将如下代码保存到您的VBA窗口中,就完成了:
Private Sub Workbook_Open()
For i = 2 To Sheet1.UsedRange.Rows.Count
If (Sheet1.Cells(i, 2).Value = Date) Then
Sheet1.Cells(i, 3).Value = "该合同到期拉"
If (Day(Date) = Day(Sheet1.Cells(i, 2).Value)) Then
MsgBox (Sheet1.Cells(i, 2).Value & "此合同已到期")
End If
Else
Sheet1.Cells(i, 3).Value = ""
End If
Next i
End Sub
小小代码,意思意思,不成敬意,大家可以借鉴如上的代码,根据您的具体情况,稍加修改,就能满足您的工作需要了。