VBA编程24学时教程005.pdf

《VBA编程24学时教程005.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第5学时用户输入在前一学时中，一些用来说明不同主题的过程已经使用了MsgBox和InputBox语句。本学时中，将学习这些语句，并且掌握如何在VBA代码中使用它们。在第1学时中，我们讨论了录制宏的某些局限性。其中一个局限性是不能向用户进行信息提示。在本学时中，将学习如何对用户进行信息提示，以及如何获取用户对这些提示的响应。本学时的重点包括：¥使用MsgBox函数¥探索InputBox函数¥使用InputBox方法，并且理解它与InputBox函数的区别¥对命名参数的讨论¥如何使用字符串5.1MsgBox函数图5-1显示了当没有保存工作簿而试图退出时

2、的情况。图5-1这是应用程序产生的众多的消息框之一你也许一直认为显示消息框需要长时间的程序设计，这种观点是完全错误的。要创建消息框，可用如下VBA代码：MsgBox"Doyouwishtosavethechangesto'"&_ThisWorkbook.Name&"'",vbYesNoCancel+vbExclamation代码中的ThisWorkbook.Name用来获取当前工作簿的名字。MsgBox函数可用于在对话框中显示信息。一旦显示出来，消息框将一直保持，第5学时用户输入使用43直至用户单击某个按钮为止。根据用户单击的按钮，会返回不同的整数

3、值。MsgBox函数的语法如下：MsgBox(prompt[,buttons][,title][,helpfile,context])这个函数必须具有的参数只有prompt。prompt的值是将在对话框中作为信息显示的字符串。注意在给出的语法中括号的运用。MsgBox是一个函数，这意味着它将返回一个值。在前面给出的例子中并没有括号。如果去掉函数参数的括号，就是在告诉VBA不需要函数的返回值。如果希望获得返回值，可使用和下面相似的代码：DimiResponseAsIntegerIResponse=MsgBox("Doyouwishtosavethec

4、hangesto'"&_ThisWorkbook.Name&"'",vbYesNoCancel+vbExclamation)现在MsgBox语句被分成了两行。VBA中的续行号是空格加下划线。如果没有为buttons参数提供数值，默认设置下，VBA假设你只希望在创建的对话框中添加“确定”按钮。可选参数buttons是一个非常有用的参数，它允许你控制：¥消息框中包括的按钮的数目。¥消息框中包括的按钮的类型。¥消息框中显示的图标。¥消息框的默认按钮。¥消息框的特征。表5-1列出了buttons参数的可能的各种设置。在这张表格中，你会发现参数分成了几组。第

5、一组设置对话框显示的按钮数目和类型，第二组选择图标的风格，第三组设置默认按钮，第四组设置对话框的特征。当添加数值创建最终的buttons参数时，从各组数值中只能选择一个。表5-1可用的MsgBox函数的buttons参数值参数组常量数值描述第一组vbOKOnly0只显示“确定”按钮（默认设置）vbOKCancel1显示“确定”和“取消”按钮vbAbortRetryIgnore2显示“放弃”、“重试”和“忽略”按钮vbYesNoCancel3显示“是”、“否”和“取消”按钮vbYesNo4显示“是”和“否”按钮vbRetryCancel5显示“重试”

6、和“取消”按钮第二组vbCritical16显示危险消息图标vbQuestion32显示警告询问图标vbExclamation48显示警告消息图标vbInformation64显示信息消息图标第三组vbDefaultButton10第一个按钮为默认按钮vbDefaultButton2256第二个按钮为默认按钮vbDefaultButton3512第三个按钮为默认按钮vbDefaultButton4768第四个按钮为默认按钮第四组vbApplicationModal0应用程序模式；用户必须对消息框作出响应才能继续使用当前的应用程序vbSystemMo

7、dal4096系统模式；所有应用程序都被挂起直至用户对消息框作出响应附加选项vbMsgBoxHelpButton16384在消息框上添加“帮助”按钮vbMsgBoxSetForeground65536将消息框设置为前景窗口vbMsgBoxRight524288显示右对齐的消息框vbMsgBoxRtlReading1048576指定在希伯莱和阿拉伯系统中显示的文本应当从右向左阅读44使用中文Excel2000编程24学时教程要查看MsgBox函数和其他VisualBasic内置常数的列表，可使用ObjectBrowser。寻找以VB开始的类，也可查看

8、Constant类，也可找到Excel的内置常数。可选的标题常数可以设置对话框标题栏显示的字符串表达式。如果不提供titl