六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

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

Admin | 2009-11-3 15:36:52 | ReadNums | 13346 | 标签 六合开奖结果现场直播 | 打印本页
     

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

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


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日