当人们使用Excel进行统计时,往往会涉及到当一个标准、合同等。将到期,需要在到期前* *天修改审批。可以用Excel实现,打开表单时,弹出提示框,提示标准将于* * *到期,避免错过截止日期。
1.打开Excel表单后,按Alt F11打开VBA编辑器。
2.双击左侧项目中的ThisWorkbook,然后选择“工作簿”并在代码窗口中打开。
3.然后输入下面的代码。重点已经注明,可以根据自己的要求修改。
将内容复制到剪贴板
私有子工作簿_Open()
将v,s,n标注为日期
v=application . worksheet function . max(range(' B2:B20 ')' C2:C20是要查看的单元格。
对于范围内的每个(' C2:C20 ')
N=Date '获取当前日期
如果n和s n为60,则在过期60天后设置提醒。
如果v s那么
v=s
如果…就会结束
如果…就会结束
然后
' MsgBox '有' V '到期的产品,请及时修改!'
末端接头
4.确认并保存。关闭当前工作簿,再次打开它,您将看到过期提示。
注意:Excel表格中日期的单元格应该以日期的形式设置。