VBA
第3部分 与Excel进行交互
在Excel中, 系统提供了各式各样的对话框与用户进行交互; 在使用VBA编写程序时, 为了提高代码的灵活性和程序的友好度, 也经常需要实现用户与Excel的交互功能. 本章将介绍如何使用InputBox和MsgBox实现输入和输出信息, 以及如何调出Excel的内置对话框.
3.1 使用MsgBox输出信息
MsgBox函数通常应用于如下几种情况:
输出代码最终运行结果. 产生一个消息框用于提醒用户.
在代码运行过程中显示某个变量的值, 用于调试代码.
MsgBox函数的语法格式如下:
MsgBox(prompt [,buttons] [, title] [,helpfile, context])
prompt参数用于设置消息框的提示文本信息, 最大长度为1023个字符. 显然那么多的字符无法显示在同一行, 如果代码中没有使用强制换行, 系统将按照每行102个字符进行自动换行处理, 多数情况下这并不符合用户的使用习惯.
在文本信息中使用vbCrLf或vbNewLine常量可以进行强制换行. 例1. 显示多行文本信息
步骤1打开一个新的工作簿文件, 按<Alt+F11>组合键切换到VBE窗口 步骤2
在工程窗口中插入”模块”, 修改其名称为”MsgBoxDemo”. 步骤3在模块MsgBoxDemo中写入如下代码. Sub MultiLineDemo() '定义变量
Dim MsgStr As String '生成提示信息
MsgStr = "欢迎加入Excel Home论坛！" & vbCrLf
MsgStr = MsgStr & "Excel Home是微软技术社区联盟成员" & vbCrLf MsgStr = MsgStr & "Let's do it better!" '显示消息框
MsgBox MsgStr, , "欢迎"
End Sub
步骤4 返回Excel界面, 运行宏MultiLineDemo, 将显示如图3.1.1所示的消息框.
图3.1.1显示多行文本信息