亲宝软件园·资讯

展开

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

人气:0

大家在使用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表格中日期的单元格要以日期形式设置。

加载全部内容

相关教程
猜你喜欢
用户评论