中文excel2000编程24学时教程05.pdf

下载 下载 第5学时 用 户 输 入 在前一学时中，一些用来说明不同主题的过程已经使用了 M s g B o x和I n p u t B o x语句。本学 时中，将学习这些语句，并且掌握如何在 V B A代码中使用它们。在第 1学时中，我们讨论了录 制宏的某些局限性。其中一个局限性是不能向用户进行信息提示。在本学时中，将学习如何 对用户进行信息提示，以及如何获取用户对这些提示的响应。 本学时的重点包括： • 使用M s g B o x 函数 • 探索I n p u t B o x 函数 • 使用I n p u t B o x方法，并且理解它与I n p u t B o x 函数的区别 • 对命名参数的讨论 • 如何使用字符串 5.1 MsgBox函数 图5 - 1显示了当没有保存工作簿而试图退出时的情况。 图5-1 这是应用程序产生的 众多的消息框之一 你也许一直认为显示消息框需要长时间的程序设计，这种观点是完全错误的。要创建消 息框，可用如下V B A代码： MsgBox Do you wish to save the changes to _ T h i s Workbook.Name , vbYesNoCancel + vbExclamation 代码中的T h i s Wo r k b o o k . N a m e用来获取当前工作簿的名字。 M s g B o x 函数可用于在对话框中显示信息。一旦显示出来，消息框将一直保持， 第5学时 用 户 输 入使用43 下载 直至用户单击某个按钮为止。根据用户单击的按钮，会返回不同的整数值。 M s g B o x 函数的语 法如下： M s g B o x (p r o m p t [ ,b u t t o n s] [ ,t i t l e] [ ,h e l p f i l e , c o n t e x t] ) 这个函数必须具有的参数只有 p r o m p t 。p r o m p t 的值是将在对话框中作为信息显示的字符 串。注意在给出的语法中括号的运用。 M s g B o x 是一个函数，这意味着它将返回一个值。在前 面给出的例子中并没有括号。如果去掉函数参数的括号，就是在告诉 V B A不需要函数的返回 值。如果希望获得返回值，可使用和下面相似的代码： Dim iResponse As Integer IResponse = MsgBox(Do you wish to save the changes to _ T h i s Workbook.Name , vbYesNoCancel + vbExclamation) 现在M s g B o x语句被分成了两行。V B A 中的续行号是空格加下划线。 如果没有为b u t t o n s 参数提供数值，默认设置下， V B A假设你只希望在创建的对话框中添 加“确定”按钮。可选参数 b u t t o n s是一个非常有用的参数，它允许你控制： • 消息框中包括的按钮的数目。 • 消息框中包括的按钮的类型。 • 消息框中显示的图标。 • 消息框的默认按钮。 • 消息框的特征。 表5 - 1列出了b u t t o n s 参数的可能的各种设置。在这张表格中，你会发现参数分成了几组。 第一组设置对话框显示的按钮数目和类型，第二组选择图标的风格，第三组设置默认按钮，第 四组设置对话框的特征。当添加数值创建最终的b u t t o n s参数时，从各组数值中只能选择一个。 表5-1 可用的M s g B o x函数的b u t t o n s参数值 参 数 组 常 量 数 值 描 述 第一组