msgbox的用法

msgbox的用法

msgbox主要用来弹出提示窗口，也可以进行简单的逻辑判断，使用起来简单方便，今天，来看一下msgbox的用法。

建新excel表，alt+f11进入vba编辑窗口。

上图是一个很简单的功能，弹出信息“这是一个弹出窗口”,系统的提示说明了msgbox的语法。

下图是运行的结果

下面对msgbox的参数做一个介绍，下图是百度百科里的信息。

第一个参数是弹出窗口返回的消息，如上面返回的“这是一个弹出窗口”。

第二个参数用处就大了，它用来返回弹出窗口的图标样式、有哪些按钮、返回用户选择的信息等。下图是百科里的信息：

举一个例子，假如我们要弹出这样的窗口：带有警告图标、是和否按钮，消息为“删除信息无法恢复，是否删除？”。看一下代码：

Sub test() response = MsgBox("删除信息无法恢复，是否删除?", vbExclamation + vbYesNo)End Sub

运行结果：

以上代码的不同之处在于，msgbox有了返回值，返回值如下表：

我们来看一下完整的例子：要求弹出一个信息窗口，信息内容是“删除信息无法恢复，是否删除?”，窗口标题是“警告”,图标是警告图标。如果用户选择了“是”,则返回“删除了！”,否则返回“你取消了！”

看一下代码：

Sub test() response = MsgBox("删除信息无法恢复，是否删除?", vbExclamation + vbYesNo, "警告") If response = vbYes Then MsgBox "删除了" Else MsgBox "你取消了" End IfEnd Sub

以下是运行结果：