1.在工作表中,单击菜单栏中的开发工具,然后单击工具栏中的visualbasic。
2、将进入vba编辑界面!单击工具栏中的插入用户表单,并从下拉菜单中选择模块。
3.将弹出模块编辑窗口。
4.在代码编辑窗口中输入以下代码:subclos
具体步骤如下:
1.在vbe界面中,双击"这个工作簿"。
2.在这里选择工作簿,会自动出现两串代码。
3.在代码中间,添加要打开excel运行的代码。
4.保存并关闭,然后打开这个exc
1.打开excel表格后,按altf11打开vba编辑器,双击左侧项目中的thisworkbook。
2.单击此工作簿进入新界面,在代码窗口中选择工作簿并打开。
3,然后输入下面的代码,关键的地方已经注明,根据自己的要求修改。privatesubworkbook_open()dimv,s,nasdatev(range(c2:c15))c2:c15是eachsinrange(c2:c15)ndate的单位,用于获取当前ifsnandsn60then设置在60天后过期的提醒。
4.endifnextif(range(c2:c15))然后dimtasstringdimasintegersetcrank(c2:c15)。查找(ifnotcisnothingthenr,endiftsheet1的返回行。单元格(r,2)。valuemsgboxt将于v到期,请及时查看。endifendsub.
5.确认并保存。关闭当前工作簿,再次打开它,您将看到过期提示。