大概这个可以在有时候打开这个excel文件的时候,自动判别有无到期后,但是这个可以设置里在到期时间前多少天决定提示。较常见方法有二:
1、单元格内文字电脑提示(公式法):
的或你的报告有效期在a1单元格,请在a2(例子)单元格输入公式“if(a1-today()50,距离外有效期另外text(a1-today(),@)天,)”,则当相隔有效期不得低于50天的时候,a2单元格会总是显示“相距有效期还有一个xx天”,不然不没显示任何内容。尽量:
a、excel是把系统日期才是当前日期的,如果不是你电脑的系统日期不正确的,则excel不能正确的判断。
b、上面的公式请然后剪切粘贴,但不含外侧引号。
c、公式中的数字50可改,.例如该成20,则大于120天时提示。
d、你的报告的有效期应为excel可不识别的标准日期格式,比如2008-2-24。2、对话框弹出来提示(宏方法):
如果你对宏不太所了解,则我们加强公式,以最简单的利用。要运行宏,必须在excel的“工具”—“宏”—“安全性”中进行可以设置。
还是或者你的报告有效期在sheet1的a1单元格,请在a2(举例)单元格输入公式“if(a1-today()50,true,false)”。
在a3单元格然后输入公式“a1-today()”并将该单元格的数字格式设为“常规”。
然后把按下atlf11打开vba编辑器,在左侧上方的窗口中右键点击thisworkbook,接着在右侧的主窗口中,顶部左边下拉你选择workbook,右侧中,选择open,编辑器会自动生成报表不胜感激内容:
privatesubworkbook_open()endsub请在这两句中间去添加如下内容:
ifworksheets(sheet1).range(a2)truethenmsgbox距离有效期另外worksheets(sheet1).range(a3).value天。,0,提示,0,0elseendif完成后存放去掉。这样,当距离外有效期到达规定值时,一再打开这个工作薄,excel都会提示框一个对话框,提示“距离之外有效期有xx天。”
1、再打开要添加文字显示的工作表。
2、选中要添加文字电脑提示的单元格区域。这里你选d2:d7单元格区域。
3、选择“数据”菜单选项卡,单击工具栏中的“数据有效性”按钮。
4、此时会弹出来“数据有效性”对话框,选择类型该对话框中的“然后输入信息”选项卡。
5、在“标题”下面的文本框中输入文字不提示的标题,这个可以不也差不多写几个文字就行。在“输入信息”下面的文本框中输入如果能在单元格中出现的文字不提示,这里再输入“请然后输入18位数的身份证号!”。单击可以确定按钮直接返回到工作表中。
6、当我们你选择d2单元格后,在单元格旁边就会弹出对话框“请输入18位数的身份证号!”这样的文字电脑提示,这样的就可以电脑提示用户在此单元格中再输入达标的数据了。