msgbox主要用来弹出提示窗口,也可以进行简单的逻辑判断,使用起来简单方便,今天,来看一下msgbox的用法。
工具/原料
电脑一台
方法/步骤
1
建新excel表,alt+f11进入vba编辑窗口。
2
上图是一个很简单的功能,弹出信息“这是一个弹出窗口”,系统的提示说明了msgbox的语法。下图是运行的结果
4
第一个参数是弹出窗口返回的消息,如上面返回的“这是一个弹出窗口”。第二个参数用处就大了,它用来返回弹出窗口的图标样式、有哪些按钮、返回用户选择的信息等。下图是百科里的信息:
5
举一个例子,假如我们要弹出这样的窗口:带有警告图标、是和否按钮,消息为“删除信息无法恢复,是否删除?”。看一下代码:Sub test() response = MsgBox('删除信息无法恢复,是否删除?', vbExclamation + vbYesNo)End Sub运行结果:
6
以上代码的不同之处在于,msgbox有了返回值,返回值如下表:
7
我们来看一下完整的例子:要求弹出一个信息窗口,信息内容是“删除信息无法恢复,是否删除?”,窗口标题是“警告”,图标是警告图标。如果用户选择了“是”,则返回“删除了!”,否则返回“你取消了!”看一下代码:Sub test() response = MsgBox('删除信息无法恢复,是否删除?', vbExclamation + vbYesNo, '警告') If response = vbYes Then MsgBox '删除了' Else MsgBox '你取消了' End IfEnd Sub 以下是运行结果:
上一篇:简笔画——怎么画眼镜
下一篇:spss逻辑回归的操作和分析方法