如何在excel表中提醒vba代码执行后能否自动提醒刷新保存?
3个回答
展开全部
在手动刷新数据的VBA中添加保存的选项;
如果数据变化了而没有刷新数据,在beforeclose中添加判断自动执行更新!
Private Sub Workbook_BeforeClose(Cancel As Boolean) If ThisWorkbook.Saved = False Then If MsgBox("数据没有保存,是否自动更新?", vbCritical + vbYesNo, "退出提示...") = vbNo Then Exit Sub
更新数据模块。
end sub
如果数据变化了而没有刷新数据,在beforeclose中添加判断自动执行更新!
Private Sub Workbook_BeforeClose(Cancel As Boolean) If ThisWorkbook.Saved = False Then If MsgBox("数据没有保存,是否自动更新?", vbCritical + vbYesNo, "退出提示...") = vbNo Then Exit Sub
更新数据模块。
end sub
展开全部
把下面test中的代码加到你的执行代码最后
Sub test() a = MsgBox("是否保存?", vbYesNo, "提醒!") If a = vbYes Then ThisWorkbook.Save End IfEnd Sub
Sub test() a = MsgBox("是否保存?", vbYesNo, "提醒!") If a = vbYes Then ThisWorkbook.Save End IfEnd Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2014-01-18 · 知道合伙人软件行家
关注
展开全部
在vba代码里加一句保存的语句不就行了?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询