Table of contents
我们经常使用 MsgBox 在 VBA 运行代码后显示通知。 有时单行不能正确显示输出。 那么我们需要 添加新线 所以从这篇文章中，你将学到 6 有用的Macros，可以在下面添加一个新行 MsgBox 使用Excel VBA。
下载实践工作手册
你可以从这里下载免费的Excel模板，自己练习。
在MsgBox.xlsm中创建新行使用Excel VBA在MsgBox中创建新行的6个例子
1.使用vbNewLine在MsgBox中添加新行，使用Excel VBA
在这里，我们将使用 vbNewLine 在 VBA宏程序 中添加一行 MsgBox. 我将展示" 你好! "在第一行，而" 欢迎来到ExcelWIKI" 在第二行。
步骤。
- 新闻 Alt + F11 以打开 VBA窗口 .
- 那么 点击 如下所示，插入一个模块。 插件 ➤ 模块 .
- 随后，在其中输入以下代码--
Sub NewLine_vbNewLine() MsgBox "Hello!" & vbNewLine & "欢迎来到ExcelWIKI" End Sub 
- 那么 回去 对你的 床单 和 点击 如下图所示，打开 巨集 对话框。 开发者 ➤ 巨集 .
- 选择 的 巨集名称 中规定的那样。 代码 .
- 最后，只要按 运行 .
现在看看吧。 vbNewLine 中显示的输出是 两行 .
阅读更多。 用VBA在Excel中生成多行邮件正文（2种方法）
2.使用vbCrLf在Excel中使用VBA在MsgBox中创建新行
现在我们将使用另一个常数的 VBA - vbCrLf 来创建一个新的行，在 MsgBox 它还会在两个连续的行之间添加一个新的行。
步骤。
- 首先，按照 第一个方法中的前两个步骤 来插入一个模块在 VBA
- 那么 写 下面的 代码 在它-
Sub NewLine_vbCrLf() MsgBox "Hello!" & vbCrLf & vbCrLf & "欢迎来到ExcelWIKI" End Sub 
- 接下来，按照 第四步，从第一种方法开始 以打开 宏程序对话框 .
- 选择 巨集名称 并按 运行 .
常数 vbCrLf 已添加 一条新线 与 缺口线 也是。
阅读更多。 如何在Excel单元格中添加行（5种简单方法）
3.使用Excel VBA在MsgBox中插入vbLf来添加新行
让我们使用另一个常数- vbLf 来添加一个 MsgBox中的新行 在Excel VBA中。
步骤。
- 遵循 第一个方法中的前两个步骤 来插入一个模块在 VBA
- 后来。 写 下面的 代码 在它-
Sub NewLine_vbLf() MsgBox "Hello!" & vbLf & "欢迎来到ExcelWIKI" End Sub 
- 然后按照 第四步，从第一种方法开始 以打开 宏程序对话框 .
- 之后，选择 巨集名称 如代码中所述，并按 运行 .
不久之后，你就会得到理想的产出。
阅读更多。 如何在Excel中用CONCATENATE公式添加新行（5种方法）
4.在Excel中使用VBA在MsgBox中应用Chr来创建新行
这里，我们将使用VBA的两个常数-- Chr(13) & Chr(10) 来添加线。
步骤。
- 首先是按照 第一个方法中的前两个步骤 来插入一个模块在 VBA
- 那么 写 下面的 代码 在它-
Sub NewLine_Chr() MsgBox "Hello!" & Chr(13) & Chr(10) & "欢迎来到ExcelWIKI" End Sub 
- 之后，按照 第四步，从第一种方法开始 以打开 宏程序对话框 .
- 然后选择指定的 巨集名称 并按 运转 .
请看，我们得到了相同的输出。
5.在Excel VBA的宏程序中添加新行
在前面的方法中，我们没有在代码中断行。 在这里，我们将在代码中断行和加行。
步骤。
- 首先，按照 第一个方法中的前两个步骤 来插入一个模块在 VBA
- 下一步。 写 下面的 代码 在它-
Sub NewLine_within_Macro() MsgBox "Hello!" & vbCrLf & vbCrLf & _ "欢迎来到ExcelWIKI" End Sub 
- 后来，按照 第四步，从第一种方法开始 以打开 宏程序对话框 .
- 然后只需选择 巨集名称 并按 运行 .
现在看，那 宏观 有 增加了一个新行 保持 缺口线 在字里行间。
阅读更多。 如何在Excel中进行换行（4种方法）
6.嵌入VBA，使用按钮在MsgBox中添加新行
在我们的最后一个方法中，我们将以一种有点不同的方式完成任务。 我们将设置一个 按钮 中添加行数。 MsgBox .
6.1 单一线路的按钮
首先，我们要做一个添加单行的按钮。 为此，我做了一个代表三个单元格的数据集，以提供输入。 姓氏 , 地址 ，以及 电话 当我们点击 按钮 ，它将检查单元格和 如果得到一个空单元格 然后将 显示该信息 为该细胞。
- 点击 如下： 开发者 ➤ 插入 然后 选择 的 矩形箱 从 表格控制部分 .
- 不久之后，你会得到一个 正号 在你的光标中。 左键点击 你的鼠标和 拖动 关于 床单 来设置 按钮尺寸 .
- 那么 右键点击 你的 鼠标 关于 按钮 并选择 编辑文本 从 上下文菜单 来设置 按钮名称 .
- 类型 的 命名 并点击工作表上的任何地方。
- 再一次 右键点击 你的 鼠标 关于 按钮 并选择 指派宏程序 从 上下文菜单 来设置一个 宏观 .
- 在这个时候，给一个 巨集名称 并按 新的 .
- 那么 类型 下面的 代码 -
Private Sub SingleLine_Button() Dim WS As Worksheet Set WS = Sheets("Single Line") If WS.Range("C4").Value = "" Then MsgBox "Please Insert Last Name!" End If If WS.Range("C5").Value = "" Then MsgBox "Please Insert Address! 
代码分解
- 首先，我创建了一个 次级程序 单线_按钮 .
- 然后声明了一个变量 湿度 作为 工作表 .
- 然后用了三个 IF 语句 来检查细胞。 如果该单元格被填满了值 那么它将 不予理会 和 如果得到一个空单元格 然后将显示 相应的信息 通过 MsgBox .
- 后来，就 回去 对你的 床单 和 点击 的 按钮 .
由于 姓氏 字段是空的，这就是为什么它显示了通知信息。
- 新闻 认可 然后它将检查第二个字段。
第二个 字段为空 也是如此，所以它 添加了一个新的行来通知它 .
在这里，我把 第一个领域 并点击了按钮，看到它跳过了那个字段而跳到了 第二领域 以显示该信息。
6.2 多条线路的按钮
通过指定这个按钮，我们就可以在消息框中一次添加多行。
- 首先。 按照上一节中的前6个步骤 来添加一个 按钮 并指定了一个 宏观 .
- 那么 类型 下面的 代码 在宏观
Sub Multiple_Line_Button() Dim WS As Worksheet Set WS = Sheets("Multiple Line") Dim Last_Name, Address, Phone, Error_msg As String Last_Name = Len(WS.Range("C4") Address = Len(WS.Range("C5") Phone = Len(WS.Range("C6") If Last_Name = 0 Then Error_msg = "请插入姓氏！" End If Address = 0 Then Error_msg = Error_msg & vbNewLine & "请插入地址！" End If Phone = 0Then Error_msg = Error_msg & vbNewLine & "Please Insert Phone Number!" End If Error_msg "" Then MsgBox Error_msg, vbOKOnly, Title:="重要注意事项！" Exit Sub End If End Sub 
代码分解
- 在这里，我创建了一个 次级程序 多行_按钮 .
- 然后声明了一些变量 湿度 如 工作表 和 姓氏 , 地址 , 电话 , 错误_msg 如
- 后来，用 伦 和 范围 来设置这些字段。
- 最后，使用了 如果声明 以检查是否 字段为空或不为空 如果它被填满了，就会跳过它，如果没有，就会通过显示信息。 MsgBox .
- 最后，只是 返回 到床单和 点击 的 按钮 .
并看到它正在显示 三线 为 三个领域 如同他们都是 空的 .
我把 第一个领域 现在看到，它只显示了以下的信息 下2个领域 .
阅读更多。 如何在Excel单元格中放入多行（2种简单方法）
总结
我希望上面描述的程序能够很好地使用Excel VBA在MsgBox中创建一个新行。 欢迎在评论区提出任何问题，并请给予我反馈。
