Excel_VBA常用技巧_第06章.使用对话框.doc

VBA 常用技巧 目录 第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是可选的，代表在框标题栏中作为标题的字符或字符串如果省略，则在标题栏中helpfile和参数context是可选的，用来框提供上下文相关帮助的帮助文件帮助主题Mymsgbox过程，显示如图 731所示的消息框。 图 731 简单的信息提示 定制个性化的消息框MsgBox函数显示的消息框具有特定的按钮、图标和标题栏，那么可以使用MsgBox函数的参数itle参数#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参数表格 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 指定在希伯来和阿拉伯语系统中从右到左731 MsgBox函数的buttons参数参数参数常数名称而不必使用实际数值。，消息框的标题栏显示Specialmsbox过程后，显示一个如图 732所示的消息框，该消息框具有“Excel Home”标题、信息消息图标和“确定”、“取消”按钮并以“确定”按钮作为默认按钮。 图 732 具有特定按钮、图标和标题栏的消息框 获得消息框的返回值 如果希望能根据用户对于消息框的不同选择，进行相应的操作，可以对消息框的返回值进行判断，如下面的代码所示。 #001 Private Sub Workbook_BeforeClose(Cancel As Boolean) #002 Dim iMsg As Integer #003 iMsg = MsgBox(文件即将关闭,是否保存?, 3 + 32) #004 Select Case iMsg #005 Case 6 #006 Me.Save #007 Case 7 #008