使用Excel处理合同日期的时候,我们如何才能够做到:让Excel自动提醒到期的合同?
先看下表:功能是这样的,当合同日期到期的时候,会在C列自动填写文字,提醒合同到期;同时,如果哪个合同到期了,还没有处理,那么,就根据合同到期的那天,即几号的意思,每个月都会自动使用对话框的方法来提醒。
本来嘛,要实现这种功能,可以使用条件格式中的简单函数来实现,但是,这样一来,如果您的合同数量多,那么,随着数据的增多,填充函数或修改函数也是挺烦的。
与其这样,倒不如来个智能的、一劳永逸的方法,那就使用VBA来做吧!
实现的方法如下:
在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
小小代码,意思意思,不成敬意,大家可以借鉴如上的代码,根据您的具体情况,稍加修改,就能满足您的工作需要了。