【原】Excel VBA工作薄 6.1 设置个性化弹窗 提示更加醒目、温馨

前景提要

经过了大半个月的学习，我们算是成功的完结了工作薄的相关知识的分享和说明，到此第5系列告一段落了，之后将会分享一些工作表的一些操作方法，但是最近几天身体有点不舒服，还没有构思好，暂时先和大家说下比较简单的msgbox弹窗的几种用法吧，希望能够对大家有所帮助，最近也在做一版汇总，先做第一系列的汇总，到时候分享给大家，到时候还期待大家多多捧场支持~~

场景模拟

今天我们来说点比较简单入手的弹窗功能吧，弹窗功能大家都比较的熟悉了，在excel中弹窗时出现比例最多的事件了，比方说你文件没有报错就执行了关闭

或者各种不合规矩的操作，比方说你写了宏，但是保存的时候还是用普通格式保存，excel也会提醒你一下，免得你代码全部没有了。

弹窗可以理解为脚本/代码编写者和使用者之间的一个交互，脚本/代码编写者通过弹窗给用户提醒或者警示，用户根据脚本/代码编写者的弹窗来进行相应的操作，形成一种交互

在VBA中，弹窗可以实现两种功能，一种就是常见的提醒或者警示，另外一种就是交互，我们本节先来分享下简单的提醒或者警示的写法

代码区

假设我们来一个提醒功能，在工作薄关闭的时候，提示用户，你正在关闭数据。一个很简单的弹窗

Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "你即将关闭工作薄", vbInformation, "关闭提醒"End Sub

看看效果

相对于前面excel展示的提示窗口就简单了很多了，关键字段也减少了很多，清晰简单的表达了我们想要表达的内容

代码分析

今天的代码很简单我，我们来说下几个参数的不同的作用

最精简版

MsgBox "你即将关闭工作薄"

窗体标题是默认的，也没有任何的图标提醒，看起来非常的生硬

进阶版

MsgBox "你即将关闭工作薄", vbInformation

相对于之前出现了一个蓝色的感叹号的图标，多了一点色彩，稍微人性化一点了，不过感觉提醒窗口的话，应该是黄色的感叹号比较醒目点，我们来修改下

Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "你即将关闭工作薄", vbExclamation, "关闭提醒"End Sub

有黄色警示标识，窗体也增加了标题，这样表达的更加温馨，人性化，那么弹窗做的这样完美，有什么用处呢？下节我们将分享下利用弹窗来进行和用户/使用者之间的交互，通过使用者做出的不同选择来执行不同的命令。敬请期待