Excel 2003 VBA中的MsgBox函数介绍.pdf

1 别怕，Excel VBA 其实很简单 6.3.3 MsgBox 函数 使用 MsgBox 函数，可以创建一个对话框，告诉用户某些信息，并等待用户单击其中 某个按钮后继续程序。 Sub msg() MsgBox prompt:=中午十二点，该吃午饭了！, Buttons:=vbOKOnly + vbInformation, _ Title:=温馨提醒 End Sub 运行这个程序的效果如图 6-21 所示。 图 6-21 MsgBox 函数创建的对话框 ? 设置显示的按钮 MsgBox 函数一共有 6 种按钮设定，如表 6-3 和图 6-21 所示。 第一个参数 prompt 是对话框中 要显示的信息，必选参数。 第二个参数 Buttons指定对话框中显示的按钮数目、 按钮形式、使用的图标样式、缺省按钮以及消息框的 强制回应等。参数值是值（或常数）的总和，如果省 略，缺省值为 0。 第三个参数 Title 指定在对话框的标题栏中显示的 字符串。如果省略，默认为应用程序名“Microsoft Excel”。 Title参数 Buttons参数 prompt参数 2 别怕，Excel VBA 其实很简单 表 6-3 MsgBox 的 6 种按钮设定 常数 值 说明 vbOkonly 0 只显示【确定】 按钮 vbOkCancel 1 显示【确定】和【取消】两个按钮 vbAbortRetryIgnore 2 显示【终止】、【重试】和【忽略】三个按钮 vbYesNoCancel 3 显示【是】、【否】和【取消】三个按钮 vbYesNo 4 显示【是】和【否】两个按钮 vbRetryCancel 5 显示【重试】和【取消】两个按钮 Sub msgbut() MsgBox prompt:=只显示“确定”按钮, Buttons:=vbOKOnly MsgBox prompt:=显示“确定”和“取消”按钮, Buttons:=vbOKCancel MsgBox prompt:=显示“终止”、“重试”和“忽略”按钮, Buttons:=vbAbortRetryIgnore MsgBox prompt:=显示“是”、“否”和“取消”按钮, Buttons:=vbYesNoCancel MsgBox prompt:=显示“是”和“否”按钮, Buttons:=vbYesNo MsgBox prompt:=显示“重试”和“取消”按钮, Buttons:=vbRetryCancel End Sub 图 6-22 MsgBox 函数的 6 种按钮设定 ? 设置显示的图标样式 MsgBox 函数一共有四种图标样式，如表 6-4 和图 6-22 所示。 3 别怕，Excel VBA 其实很简单 表 6-4 MsgBox 的 4 种图标样式 常数 值 说明 vbCritical 16 显示【关键信息】图标 vbQuestion 32 显示【警告询问】图标 vbExclamation 48 显示【警告消息】图标 vbInformation 64 显示【通知消息】图标 Sub msgbut() MsgBox prompt:=显示“关键信息”图标, Buttons:=vbCritical MsgBox prompt:=显示“警告询问”图标, Buttons:=vbQuestion MsgBox prompt:=显示“警告消息”图标, Buttons:=vbExclamation MsgBox prompt:=显示“通知消息”图标, Buttons:=vbInformation End Sub 图 6-23 不同的图标样式 可以同时设置显示的按钮和图标，在两个常数或值之间用+号连接： yn = MsgBox(prompt:=是否在A1单元格输入 100？, Buttons:=vbYesNo + vbQuestion) 执行程序后，效果如图 6-24 所示。 图 6-24 设置按钮及显示图标 显示【是】和【否】两个按钮以及 “警告询问”图标。参数值还可以 写为：4+32或 36。 4 别怕，Excel VBA 其实很简单 ? 设置缺省按钮 默认情况下按回车键即可执行的按钮称为缺省按钮，如图 6-25 所示。 图 6-25 缺省按