msgbox 利用MsgBox函数显示多行表格化数据

本文是Excel 2016应用百科的扩展

在代码中，MsgBox函数通常用于以下情况:

输出代码的最终运行结果。

将显示一个对话框来提醒用户。

在对话框中显示提示信息，等待用户点击按钮，然后根据用户的选择执行相应的代码。

在为调试代码而运行代码期间，显示变量值。

MsgBox函数具有以下语法格式:

MsgBox

表45-1列出了MsgBox函数的参数及其含义。

参数

描述

可选／必需

提示

对话框中显示的文本信息的最大长度约为1024个字符，这由所用字符的宽度决定

需要

标题

对话框标题栏中显示的字符串表达式

可选的

帮助文件，上下文

设置帮助文件和帮助主题

可选的

表45-1 MSGBOX功能参数列表

MsgBox函数的提示参数用于设置对话框的提示文本信息。最大长度约为1024个字符。显然，这么多字符不能显示在同一行上。

如果代码中没有使用强制换行，系统会自动换行，这在大多数情况下不符合用户的使用习惯。

因此，如果提示参数的内容超过一行，回车)、换行符)或回车和换行符&: Chr)的组合会将行隔开。

您还可以使用常量vbCrLf或vbNewLine在代码中强制换行。

如果要在对话框中以列表的形式显示工作表中的数据，除了强制新行外，还需要插入带有vbTab常量的制表符，这样每列数据都以左对齐的方式显示。

使用MsgBox函数显示多行表格数据

示例工作簿中的数据如图45-2所示。

图45-2工作表中的数据

一个

创建新的空白色工作簿文件，然后按

2

在中插入“模块”，将其名称修改为“MsgBoxDemo2”。

三

在项目资源管理器中双击模块MsgBoxDemo2，在代码窗口中编写如下代码。

#001子多重链接模式

#002 Dim iRow As Single，iCol As Single，MsgStr As String

#003对于iRow = 1至6

#004对于iCol = 1至4

# 005 MsgStr = MsgStr & amp细胞和；vbTab

#006下一个

# 007 MsgStr = MsgStr & amp回车换行

#008下一个

#009 MsgBox MsgStr，“城市列表”

#010末端接头

四

回到Excel界面，运行MultiLineTableDemo流程，会显示如图45-3所示的对话框。

图45-3显示了多行表格数据

代码解析

第3行到第8行的代码以双层循环结构遍历工作表中的数据。

第五行代码用于创建对话框中显示的信息，制表符用作相邻两列数据之间的分隔符，即代码中的vbTab常量。

第9行代码用于显示对话框。

微软技术社区联盟成员