怎样制一个Excel来管理合同档案?Excel里的到期提醒功能怎么设置?

发布网友发布时间：2022-06-08 02:15

我来回答

共4个回答

热心网友时间：2023-11-03 23:57

在EXCEL中设置合同到期提醒功能（如图）的步骤：

1、合同签订日期、合同到期日期、今日日期里单元格里的数值必须是日期类型；

今日日期C列下所有的单元格：输入=TODAY()；

合同剩余日期：D2里输入=B2-C2，然后鼠标悬停在D2单元格右下角，当鼠标形状变成实心十字型时，向下拖拉；

2、选中D列里的数据区域：如例图选择D2：D4，点开始菜单——条件格式——突出显示单元格规则——其他规则；

3、在编辑规则说明下，选择【单元格值】，【小于或等于】，输入0，点格式；

4、点填充选项卡，选择红色，点确定；

5、返回到新建格式规则，点确定，此时可以看到当合同到期或者过期时，合同剩余日期里的单元格显示为红色。

热心网友时间：2023-11-03 23:57

自己网上查查，到期提醒，就是计算这个合同的开始时间，然后输入一个到期时间，然后获取今天的时间，如果是到期时间。那就提醒。一般设置一个月后到期提醒，一个星期后到期提醒。一天后到期提醒，这么多追问谢谢啊

追答keqi le

热心网友时间：2023-11-03 23:58

写vba。用2个sheet。第一个查询页，第二个放合同信息。不过我就不能帮你写了。花时间....追问谢谢啊，

热心网友时间：2023-11-03 23:58

=====================================================================
在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

　　小小代码，意思意思，不成敬意，大家可以借鉴如上的代码，根据您的具体情况，稍加修改，就能满足您的工作需要了。