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

　　大家在使用Excel统计时，常常会涉及一个标准、合同等等什么时候到期[到期，到了预定的日期。]，同时需要在起到期前**天修订[修订是一个汉语词汇，读音为xiū dìng，指的是对文件、书籍、文稿、图表等的修改整理并装订成册。]核准。那可以用Excel来实现在打开[打开，是一种常用的动词，它指的是，把器皿或盒子的盖子掀开。]该表格[表格，又称为表，即是一种可视化交流模式，又是一种组织整理数据的手段。]时，弹出提示[提示，指给予提醒和解释。]框提示标准于***到期，避免错过截止日期　　1、打开Excel表格后，按Alt+F11，打开VBA编辑器[编辑器是软体程序，一般是指用来修改电脑档案的编写软件，但也有人称 PE2、HE4（汉书）……等文书软件为编辑器。]　　2、双击[常指在电脑运用中，双击鼠标的动作。]左侧工程里面的ThisWorkbook，然后选择代码[代码就是程序员用开发工具所支持的语言写出来的源文件，是一组由字符、符号或信号码元以离散形式表示信息的明确的规则体系。]窗口里的workbook和open　　3、然后输入以下代码，关键地方已备注，按自己要求修改即可。　　复制内容到剪贴板[剪贴板（ClipBoard）是内存中的一块区域，是Windows内置的一个非常有用的工具，通过小小的剪贴板，架起了一座彩桥，使得在各种应用程序之间，传递和共享信息成为可能。]　　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 ' 设置[庵顶，2000年起由庵上改名，是由以前庵顶山一庵得名，人口未知，主要由高，王，李三姓组成，农民以种葱，姜为主，依山傍水，北由汶河，交通便利，西靠青云湖路，北由滨河路，南有下小路，东靠安丘东外环，物产丰富，人们安居乐业...]到期60天时提醒　　If v > s Then　　v = s　　End If　　End If　　Next　　MsgBox "有产品于" & v & "到期，请及时修订!"　　End Sub　　4、确认，保存。关闭当前工作簿，再次打开，就会看到到期提示啦。　　注意事项： Excel表格中日期的单元格要以日期形式设置。86％的科技爱好者也看的内容：iPad_mini充电充不满怎么办_iPad_mini电池充不满解决方法opporeno6Pro怎么设置来电闪光灯-具体的设置方法是什么excel如何编辑大段文字_excel编辑大段文字方法怎么用PS滤镜和图层样式制作唯美下雪效果路由器组网的特点有哪些？小米平板5怎么全屏-怎么设置应用全屏ipadmini5屏幕什么材质-屏幕采样率多少手机上怎么用美图秀秀消除马赛克？