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

2024-12-03 17:56:02
推荐回答(4个)
回答1:

在EXCEL中设置合同到期提醒功能(如图)的步骤:

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

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

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

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

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

4、点填充选项卡,选择红色,点确定;

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

回答2:

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

回答3:

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

回答4:

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

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