Dzwebs.Net

撰写电脑技术杂文十余年

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

Admin | 2009-11-3 15:36:52 | 被阅次数 | 20733

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

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

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


该杂文来自: Excel杂文

上一篇:在Excel中提取单元格混合字符串中的数字与英文的

下一篇:在Excel中实现二进制、八进制、十进制、十六进制

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计