excel设置30天到期提醒?那么,excel设置30天到期提醒?一起来了解一下吧。
方法/步骤
准备原始数据,本文以“合同到期提醒”表来模拟次功能,通过观察此表,我们发现次表主要包括合同的开始日期,和截止日期,而我们要实现的功能是:如何系统日期比合同日期小7天内,哪儿该单元格飘红,以此来提示用户,这个合同将在一个星期内到期。
框选D2:D10列,单机【条件格式】按钮,在弹出的下拉框中点击【管理规则】按钮。
在弹出的【条件格式规则管理器】中单机【新建规则】按钮
在弹出的【新建条件格式】对话框中选择【使用公式确定要设置格式的单元格】按钮
5
在【为此公司的值设置格式】中输入“=AND($D2>TODAY(),$D2-TODAY()<7)”并单机【格式按钮】设置符合此条件的单元格颜色。
你里面有合同时间的吧 可以用条件格式 给到期的 上颜色的
比如a1 是2010-1-1
如果合同到期时1个月后
然后你在a1里面 格式-条件格式-公式
=today()>a1+30 就意思今天日期大于a1日期+30天的时候 就变色 颜色你在条件格式里面自己设置就好了
然后再运用到其他单元格 不理解 消息我希望没理解错误你的要求
单元格自2113动变色的问题在EXCEL中可用两种方法实现:
方法一:
条件格式,操作如下(以到5261期前五天举例):
开始-->条件格式-->新建规则-->使用4102公式确定-->输入公式=(A1>TODAY()-5)*(A1
公式中的星号可用and函数替代。
方法专二:
VBA代码。
alt+f11打开VBA, 键入如下属代码到需要设置颜色的sheet下,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range
For Each cel In Range("a1:a" & Range("a65536").End(xlUp).Row)
If cel > Date - 5 And cel < Date Then cel.Interior.ColorIndex = 20
Next
End Sub
=====================================================================
在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
小小代码,意思意思,不成敬意,大家可以借鉴如上的代码,根据您的具体情况,稍加修改,就能满足您的工作需要了。
用条件格式:
选中A2,点格式--条件格式--公式,输入:
=today()<(A2-61)
设定格式为你要的样色(如字体红色)
确定,OK
上述公式可以提前61天提醒(天数可以自己根据需要来定)
也可以再增加一个条件(如<30天时底色为黄色)进一步提醒.
=today()<(A2-30)
设定底色为黄色,OK
以上就是excel设置30天到期提醒的全部内容,..。