Excel表格怎么设置标准合同到期自动弹出提醒?

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

Excel表格怎么设置标准合同到期⾃动弹出提醒?
⼤家在使⽤Excel统计时,常常会涉及⼀个标准、合同等等什么时候到期,同时需要在起到期前**天修订核准。

那可以⽤Excel 来实现在打开该表格时,弹出提⽰框提⽰标准于***到期,避免错过截⽌⽇期。

1、打开Excel表格后,按Alt+F11,打开VBA编辑器
2、双击左侧⼯程⾥⾯的ThisWorkbook,然后选择代码窗⼝⾥的workbook和open
3、然后输⼊以下代码,关键地⽅已备注,按⾃⼰要求修改即可。

复制内容到剪贴板
Private Sub Workbook_Open()
dim v,s,n as Date
v = Application.WorksheetFunction.Max(Range("B2:B20")) 'C2:C20为要审查的单元格
For Each s In Range("C2:C20")
n = Date '获取当前⽇期
If s > n And s < n + 60 Then ' 设置到期60天时提醒
If v > s Then
v = s
End If
End If
Next
MsgBox "有产品于" & v & "到期,请及时修订!"
End Sub
4、确认,保存。

关闭当前⼯作簿,再次打开,就会看到到期提⽰啦。

注意事项:Excel表格中⽇期的单元格要以⽇期形式设置。

相关文档
最新文档