Question

如何在excel中设置窗口弹出提醒？

感谢。我想要的效果是比如A列是商品的保质期，当电脑时间到该列某个商品时间时候，会自动弹出提示框，提示“**商品已到保质期”。谢谢。应该是宏来实行，不知道怎么设置？

Answer 1

通过“数据”选项下的“数据有效性”来设置。

选择单元格区域，在“数据”选项下的“数据有效性”里的允许中选择“自定义”，然后输入<3000；在

“出错警告”中选择“信息”，并输入“你的账户余额已不足3000，请及时续费”，确定，即可。

 

详见附图：

 

 

Answer 2

excel或vba中日期是可以直接比较大小的，excel中获取当时日期的公式=today()，vba中为date，
可以用excel中的数据有效性，也可以用vba，vba的话，比如说要比较A1单元格的日期是不是过期，
sub compare()
if worksheets("sheet1").range("a1").value>date then msgbox "商品已到保质期"
end if
end sub

追问

您好。能把表格发你邮箱帮我直接设置吗？谢谢。很急，但不懂。

追答

673374253@qq.com

Answer 3

如果你要想这样来做的话，你应该使用一个vba 作为这个工作簿的打开事件 来运行检查……
编制你的vba 代码 然后粘贴到 Thisworkbook 的 如下的事件中……这样就可以在打开的时候 就开始检查了……
Private Sub Workbook_Open()

End Sub
你还可以把你编辑的vba 代码 插入到自定义的模块中 作为一个 宏……在需要时运行检查……

Answer 4

看是哪种的情况 下弹出，假若把单元格的有效性设置为数字，你输入汉字他就会弹出
那个是可以设置的，但是不是弹出形式的，弹出 形式的得用程序编，而且也不知道什么时候应该弹出，我可以帮你设置到期的用颜色标记出来fanwei0602@163.com

追问

谢谢。。颜色标识这个我知道。希望能通过设置宏，达到自动弹出提示框形式来提醒。