excel中如何实现到期或过期提醒?且在打开工作表时自动弹出对话框显示!请高手赐教,多谢!!!

且在打开工作表时自动弹出对话框显示!... 且在打开工作表时自动弹出对话框显示! 展开
 我来答
两个人的巧合
2011-02-23 · TA获得超过155个赞
知道小有建树答主
回答量:144
采纳率:0%
帮助的人:60.8万
展开全部
假设A列是日期。打开excel VBA编辑器中,在workbook的open事件中添加以下代码:
Private Sub Workbook_Open()
Dim TotalRows
Dim str As String
TotalRows = Worksheets(1).UsedRange.Rows.Count
For i = 1 To TotalRows
If (Cells(i, 1) < Date) Then
str = "第" + CStr(i) + "行过期!"
MsgBox (str)
End If
Next i
End Sub
保存文件,在“工具”->“宏”->“安全性”中,把安全级设为中或者低。建议设为中。关闭文件,再打开文件后,会弹出提示框,选择启用宏,即可实现效果。
72yx789
2011-02-23 · TA获得超过1492个赞
知道小有建树答主
回答量:789
采纳率:0%
帮助的人:602万
展开全部
=工作表标签名!单元格地址
比如说:=sheet1!B5
这个是跨工作表的引用
追问
可能我没说明白:就是我的工作表里有一列填的是日期,我想实现:在该日期到期或过期时,我打开工作表时会弹出对话框提示“到期”或“过期”。

参考资料: 百度一下

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
太极健1969
2011-02-23 · TA获得超过9033个赞
知道大有可为答主
回答量:8668
采纳率:69%
帮助的人:3610万
展开全部
要想弹出提醒就得用VBA解决
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式