
Excel如何实现自动提醒功能! 5
功能描述:我作了一个Excel表,E列全部是日期型(2007-04-20或20070420这两种),就是想要把他设置成到了设定的日期与系统日期一致时能自动弹出对话筐提示要...
功能描述:我作了一个Excel表,E列全部是日期型(2007-04-20或20070420这两种),就是想要把他设置成到了设定的日期与系统日期一致时能自动弹出对话筐提示要做什么事!——是对话筐提示哦,且每天要做的事都不一样!
强调:1.是对话筐提示,而不是简单的IF(....)函数的那种单元格提示!
2.请不要简单的复制下类宏命令:
Sub auto_open()
Application.OnTime TimeValue("08:30:00"), "tx"
Application.OnTime TimeValue("11:30:00"), "tx"
End Sub
Sub tx()
msg = MsgBox("通知张三、李四、王五评委参加下午评标!", vbInformation, "赶快打电话")
End Sub
因为那是无法达到上诉要求的,至少它只能简单的满足时间[00:00:00]条件,而根本无法实现日期[000-00-00]的要求,除非在上诉基础上作了修改
诚请各路高手不吝赐教,不胜感激!谢谢^_^
谢谢!各位的热心回答!
但还是请大家在回答之前认真看清提问,特别是重复强调的那2点! 展开
强调:1.是对话筐提示,而不是简单的IF(....)函数的那种单元格提示!
2.请不要简单的复制下类宏命令:
Sub auto_open()
Application.OnTime TimeValue("08:30:00"), "tx"
Application.OnTime TimeValue("11:30:00"), "tx"
End Sub
Sub tx()
msg = MsgBox("通知张三、李四、王五评委参加下午评标!", vbInformation, "赶快打电话")
End Sub
因为那是无法达到上诉要求的,至少它只能简单的满足时间[00:00:00]条件,而根本无法实现日期[000-00-00]的要求,除非在上诉基础上作了修改
诚请各路高手不吝赐教,不胜感激!谢谢^_^
谢谢!各位的热心回答!
但还是请大家在回答之前认真看清提问,特别是重复强调的那2点! 展开
3个回答
展开全部
假设日期是在E列,F列为提醒列,你在F1中输入:
=IF(E1=TODAY(),"通知张三、李四、王五评委参加下午评标",""),用填充柄向下复制。
TODAY()是调用系统时间,=IF(C1=TODAY(),"到期请出货","")的意思就是:如果C1的内容等于系统日期就显示“到期请出货”,否则显示为空。
问题是你得保证“通知张三、李四、王五评委参加下午评标”输入时是日期型,而且你的系统日期是正确的,如修改过系统日期又不想重新打开EXCEL文件,可按F9刷新重算全表,以保证TODAY()函数获取的是修改后的日期。
另外你最好经常以“通知张三、李四、王五评委参加下午评标”做为关键字重新升序排序,这样日期上是顺序递增的,不是一目了然了吗?
=IF(E1=TODAY(),"通知张三、李四、王五评委参加下午评标",""),用填充柄向下复制。
TODAY()是调用系统时间,=IF(C1=TODAY(),"到期请出货","")的意思就是:如果C1的内容等于系统日期就显示“到期请出货”,否则显示为空。
问题是你得保证“通知张三、李四、王五评委参加下午评标”输入时是日期型,而且你的系统日期是正确的,如修改过系统日期又不想重新打开EXCEL文件,可按F9刷新重算全表,以保证TODAY()函数获取的是修改后的日期。
另外你最好经常以“通知张三、李四、王五评委参加下午评标”做为关键字重新升序排序,这样日期上是顺序递增的,不是一目了然了吗?
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
楼主不妨试下以下想法
1.在formopen里遍历E列
2.如有储存格内容=当前系统日期
3.offset至右边下一个储存格(记录的提醒事项)
4.msgbox
以上只在开文档时执行一次
若要想一直开着,时间一到就提醒,可能要每隔1秒,执行一下上述动作.电脑或许会慢吧?
1.在formopen里遍历E列
2.如有储存格内容=当前系统日期
3.offset至右边下一个储存格(记录的提醒事项)
4.msgbox
以上只在开文档时执行一次
若要想一直开着,时间一到就提醒,可能要每隔1秒,执行一下上述动作.电脑或许会慢吧?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询