VBA及EXCEL进行交互.pdf

VBA 与EXCEL 进行交互 在使用Excel 的过程中，应用程序经常会显示不同样式的对话框来实现多种多样的用户交 互功能。在使用VBA 编写程序时，为了提高代码的灵活性和程序的友好度，经常需要实现用 户与Excel 的交互功能。本章将介绍如何使用InputBox 和MsgBox 实现输入和输出信息。 45.1 使用MsgBox 输出信息 在代码中，MsgBox 函数通常应用于如下几种情况： 输出代码最终运行结果。 显示一个对话框用于提醒用户。 在对话框中显示提示信息，等待用户单击按钮，根据用户的选择执行相应的代码。 在代码运行过程中显示某个变量的值用于调试代码。 MsgBox 函数的语法格式如下： MsgBox(prompt[, buttons] [, title] [, helpfile, context]) 表格 45-1 中列出了MsgBox 函数的参数及其含义。 参数 描述 可选／必需 显示在对话框中的文本信息。最大长度大约为 1024 个字符， prompt 由所用字符的宽度决定 必需 title 对话框标题栏中显示的字符串表达式 可选 helpfile，content 设置帮助文件和帮助主题 可选 表格 45-1 MsgBox 函数参数列表 1 / 13 45.1.1 显示多行文本信息 prompt 参数用于设置对话框的提示文本信息，最大长度为1024 个字符，显然这么多的字 符无法显示在同一行。如果代码中没有使用强制换行，系统将按照每行 102 字符进行自动换行 处理，多数情况下这并不符合用户的使用习惯。因此如果 prompt 参数的内容超过一行，则应 该在每一行之间用回车符 （Chr （13））、换行符 （Chr （10））或是回车与换行符的组合 （Chr （13） Chr （10））将各行分隔开来。代码中也可以使用使用vbCrLf 或者vbNewLine 常量进 行强制换行。 示例45. 1 显示多行文字 步骤1 在Excel 中新建一个空白工作簿文件，按Alt+F11组合键切换到VBE 窗口。 步骤2 在工程资源浏览器中插入“模块”，并修改其名称为“MsgBoxDemo1”。 步骤3 在工程资源浏览器中双击模块MsgBoxDemo1，在代码窗口中写入如下代码。 #001 Sub MultiLineDemo() #002 Dim MsgStr As String #003 MsgStr = Excel Home 是微软技术社区联盟成员 Chr(13) Chr(10) #004 MsgStr = MsgStr 欢迎加入Excel Home 论坛！ vbCrLf #005 MsgStr = MsgStr Lets do it better! #006 MsgBox MsgStr, , 欢迎 #007 End Sub 步骤4 返回Excel 界面，运行MultiLineDemo 过程，将显示如图 45- 1 所示的对话框。 图 45-1 显示多行文字 代码解析： 第3 行到第5 行代码创建对话框的提示信息，其中第3 行代码使用回车与换行符分割文本 2 / 13 信息，第4 行代码使用了vbCrLf 常量分割文本信息。在图 45-1 中可以看出这两种实现方法的