VBA中MsgBox对话框的应用

VBA语言専攻 2022-09-06

154

【分享成果，随喜正能量】走好运的时候欲望很容易得到满足，所以平常的欲望越强，时来运转以后好的程度就可能越大。无欲无求的只适合青灯相伴。。

《VBA之Excel应用》是非常经典的，是我推出的第七套教程，定位于初级。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是“VBA之EXCEL应用”:VBA中MsgBox对话框的应用

第一节 MsgBox对话框

MsgBox是Excel VBA中的一个对话框，可以用来通知用户程序的进程及需要用户判断的一些信息。这个对话框可以实现很多的功能，我们先来看一个最为简单的应用。

1 MsgBox对话框的简单应用

我们在工作表上放置一个运行按钮并添加以下代码行：

Sub mynz()

MsgBox "这是一个MsgBox对话框！"

End Sub

代码截图：

代码解读：上述代码我们将提示给用户一条信息：“这是一个MsgBox对话框！”，这条信息是在一个弹出的窗体上展现给我们。我们可以在窗体上点击“确定”按钮，表示我们（用户）已经看到这个信息，点击按钮反馈后，是反馈给程序这个信息。

我们在工作表上建立一个运行按钮，关联上上述过程，并点击运行，我们看看运行的结果：

2 MsgBox对话框对信息的提示

MsgBox对话框还可以对更高级的信息进行提示，例如，当我们在单元格A1中输入信息后，可以用这个对话框来展示给用户。如下面的代码：

Sub mynzA()

MsgBox "在A1单元格中录入的内容为: " & Range("a1").Value

End Sub

代码截图：

代码解读：

MsgBox "在A1单元格中录入的内容为: " & Range("a1").Value 这句代码会弹出一个窗体对话框，这个窗体对话框中会提示工作表A1单元格中的内容。Range("a1").Value指的是单元格A1的值。

l我们使用了“&”运算符来连接两个字符串，Range（“A1”）.value的结果是看作字符串来对应的。

下面我们仍旧是看一下代码的运行结果。

在工作表上建立一个按钮，将上述“mynzA”过程关联上建立的按钮，点击运行，看运行的结果：

3 MsgBox对话框中换行的实现

有时，需要提示的信息会很长，我们需要利用换行符来实现。如下面的代码：

Sub mynzB()

MsgBox "在A1单元格中录入的内容为: " & vbNewLine & Range("a1").Value

End Sub

代码截图：

代码解读：vbNewLine 是指的换行。当字符串遇到这个符号后会在新的一行开始。

我们看代码运行的结果：

这个时候，提示的信息是用两行来实现的。

今日内容回向：

1） MsgBox如何利用？

2） MsgBox对话框如何实现提示信息？

3) MsgBox对话框如何实现提示信息的换行？

本讲内容参考程序文件：工作簿02.xlsm

我20多年的VBA成果全在下面的资料中：

【分享成果，随喜正能量】古人说，足寒伤心，民寒伤国。意思是，脚受了寒就会伤害心脏，民众寒了心就会伤害到国家。。

vba msgbox 单元格窗体

文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。

评论