Excel合同到期提醒功能之VBA通用代码示例

　　使用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

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

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18