MsgBox函数的讲解及应用

所谓函数，指的是一个Function过程，区别于简单的过程，Function过程是有返回值.
Excel VBA中的MsgBox函数可以返回结果，而简单的MsgBox语句不能返回结果。

MsgBox函数

在对话框中显示消息，等待用户单击按钮，并返回一个整数，指示用户单击的那个按钮

一、语法:
MsgBox (prompt, [ buttons, ] [ title, ] [ helpfile, context ])

参数：

① prompt 必需项。字符串表达式在对话框中显示为消息。 prompt 的最大长度约为 1024 个字符，具体取决于所使用的字符的宽度。如果 prompt 包含两行以上，则可以在每行之间使用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符组合 (Chr(13) & Chr(10)) 将其分隔。

② buttons 可选。数值表达式，用于指定要显示按钮的数量和类型、要使用的图标样式、默认按钮的标识和消息框的形式的值之和。如果省略，则 buttons 的默认值为 0。

③ title可选。对话框标题栏中显示的字符串表达式。如果省略 title，则标题栏中将显示应用程序名称。

④ helpfile 可选。用于标识帮助文件的字符串表达式，前者用于为对话框提供上下文相关的帮助。如果提供 helpfile，则也必须提供 context。

⑤ context 可选。帮助上下文数值的数值表达式，该数值由帮助作者为相应的帮助主题分配。如果提供 context，则也必须提供 helpfile。

二、buttons 参数设置如下：

常量	值	说明
vbOKOnly	0	仅显示“确定”按钮。
vbOKCancel	1	显示“确定”和“取消”按钮。
vbAbortRetryIgnore	2	显示“中止”、“重试”和“忽略”按钮。
vbYesNoCancel	3	显示“是”、“否”和“取消”按钮。
vbYesNo	4	显示“是”和“否”按钮。
vbRetryCancel	5	显示“重试”和“取消”按钮。
vbCritical	16	显示“关键消息”图标。
vbQuestion	32	显示“警告查询”图标。
vbExclamation	48	显示“警告消息”图标。
vbInformation	64	显示“信息消息”图标。
vbDefaultButton1	0	第一个按钮是默认按钮。
vbDefaultButton2	256	第二个按钮是默认按钮。
vbDefaultButton3	512	第三个按钮是默认按钮。
vbDefaultButton4	768	第四个按钮是默认按钮。
vbApplicationModal	0	应用程序模式；用户在继续在当前应用程序中工作前必须响应消息框。
vbSystemModal	4096	系统模式；在用户响应消息框前，所有应用程序都挂起。
vbMsgBoxHelpButton	16384	在消息框中添加“帮助”按钮。
vbMsgBoxSetForeground	65536	将消息框窗口指定为前景窗口。
vbMsgBoxRight	524288	文本右对齐。
vbMsgBoxRtlReading	1048576	指定文本在希伯来语和阿拉伯语系统中应从右到左显示。

三、第一组值 (0-5) 表示对话框中显示的按钮的数量和类型；第二组值（16、32、48、64）表示图标样式；第三组值（0、256、512）用于确定默认按钮；第四组值（0、4096）用于确定消息框的形式。添加数字以创建最终 buttons 参数值时，只是用每个组中的其中一个数值。
四、关于返回值

常量值说明

vbOK 1 确定

vbCancel 2 Cancel

vbAbort 3 中止

vbRetry 4 重试

vbIgnore 5 忽略

vbYes 6 是

vbNo 7 否

常量	值	说明
vbOK	1	确定
vbCancel	2	Cancel
vbAbort	3	中止
vbRetry	4	重试
vbIgnore	5	忽略
vbYes	6	是
vbNo	7	否

如果对话框中显示“取消”按钮，按 ESC 键与单击“取消”具有相同的作用。如果对话框中包含“帮助”按钮，则会为对话框提供上下文相关帮助。但是，在单击其他按钮中的某个按钮之前不会返回任何值。

MsgBox函数的应用

为了清空某个工作表，我们可以写一段代码达到我们的目的。但是在运行之前要提供给用户思考的时间，清空后是否有其他的麻烦。我们来看下面的代码：

Sub mynzC()

answer = MsgBox("你是否要清空工作表?", vbYesNo + vbQuestion, "清空工作表")

If answer = vbYes Then

Cells.ClearContents

Else

'do nothing

End If

End Sub