msgbox的用法
来源:网络收集 点击: 时间:2024-03-15建新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
以下是运行结果:



版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_355972.html