Excel-VBA常用技巧-第06章.使用对话框.docVIP

PAGE PAGE 1 VBA 常用技巧 目录 TOC \o 1-3 \h \z \u 第6章 使用对话框 2 技巧1 使用Msgbox函数 2 技巧2 自动关闭的消息框 9 技巧3 使用InputBox函数 11 技巧4 使用InputBox方法 15 技巧5 内置对话框 18 技巧6 调用操作系统“关于”对话框 25 使用对话框 使用Msgbox函数 显示简单的提示信息 在使用Excel的过程中，如果需要向用户显示简单的提示信息，可以使用MsgBox函数显示一个消息框，如下面的代码所示。 #001 Sub mymsgbox() #002 MsgBox 欢迎光临Excel Home! #003 End Sub 代码解析： Mymsgbox过程使用MsgBox函数显示一个消息框。MsgBox函数用于显示提示信息，语法如下： MsgBox(prompt[, buttons] [, title] [, helpfile, context]) 参数prompt是必需的，代表在消息框中作为信息显示的字符或字符串，最多只能接受约1024个字符，取决于所使用字符的宽度。 参数buttons是可选的，用于指定消息框中显示按钮的数目及类型、使用的图标样式、缺省按钮以及消息框的强制回应等。如果省略，则buttons参数的缺省值为0，消息框只显示“确定”按钮。 参数title是可选的，代表在消息框标题栏中作为标题的字符或字符串。如果省略，则在标题栏中显示“Microsoft Excel”。 参数helpfile和参数context是可选的，用来为消息框提供上下文相关帮助的帮助文件和帮助主题。如果提供了其中一个参数，则必须提供另一个参数，两者缺一不可。 运行Mymsgbox过程，显示如 REF _Ref195540208 \h 图 731所示的消息框。 图 STYLEREF 3 \s 73 SEQ 图 \* ARABIC \s 3 1 简单的信息提示 定制个性化的消息框 如果希望MsgBox函数显示的消息框具有特定的按钮、图标和标题栏，那么可以使用MsgBox函数的buttons参数和title参数，如下面的代码所示。 #001 Sub Specialmsbox() #002 MsgBox Prompt:=欢迎光临 Excel Home!, _ #003 Buttons:=vbOKCancel + vbInformation, _ #004 Title:=Excel Home #005 End Sub 代码解析： Specialmsbox过程使用MsgBox函数显示一个具有特定的按钮、图标和标题栏的消息框。 第3行代码设置消息框的Buttons参数，使消息框显示时具有“确定”、“取消”按钮和信息消息图标。MsgBox函数的buttons参数设置值如 REF _Ref195540232 \h 表格 731所示。 参数组 常数 值 描述 第一组设置消息框按钮数目和类型 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 指定在希伯来和阿拉伯语