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

  1. 1、本文档共26页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Excel_VBA常用技巧_第06章.使用对话框

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

文档评论(0)

asd522513656 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档