VBA的msgbox的用法
msgbox主要用来弹出提示窗口,也可以进行简单的逻辑判断,使用起来简单方便,今天,来看一下msgbox的用法。
1、建新Excel表,Alt+F11进入vba编辑窗口。
双击这里,弹出VBA编辑窗口
2、在编辑窗口中如下代码:
Sub test()
Msgbox(“这是一个弹出窗口”)
End sub
点这里运行我们编的程序
上图是一个很简单的功能,弹出信息“这是一个弹出窗口”,系统的提示说明了msgbox的语法。
下图是运行的结果
下面详细介绍msgbox 基础语法
msgbox有语句和函数两种格式如下,其中[ ]中的内容可以省略。
语句格式:MsgBox(prompt[, buttons] [, title] [, helpfile, context])
函数格式:变量=MsgBox(prompt[, buttons] [, title] [, helpfile, context])
其中的参数除buttons外均与inputbox函数相同。
prompt是对话框消息出现的字符串表达式,title为对话框标题栏中字符串,buttons参数后面会具体说明。helpfile,context是与帮助文件相关基本省略。
首先说明一下语句和函数两种形式的区别,msgbox语句形式,仅显示内容,点击确定不会产生其他结果。
Sub 测试msgbox语句()
MsgBox ("这是一个弹出窗口")
End Sub
上述代码运行结果
那么增加变量i,将上面的示例改成函数格式看下结果。
Sub 测试msgbox函数()
Dim i As Integer
i = MsgBox("是否继续运行")
Debug.Print i
End Sub
同样一个msgbox语句,点击确定按钮后,函数格式返回了一个数值1。这个变量返回值1就提供了可以和程序交互的可能。
弹出窗口代码编写
如果可以有几个不同的按钮可以选择,然后返回不同的值就更实用了?不同值可以用来作判断条件。
Sub 测试msgbox函数()
Dim i As Integer
i = MsgBox("是否继续运行", 35)
Debug.Print i
End Sub
运行结果如下图所示:
当你在弹出窗口中点“是”返回值是6,点“否”返回值是7,点“取消”返回值是2。
通过更改了一个buttons的参数值35,改变了对话框的样式(下面会具体说明。)可以看到点击三个按钮后,变量i得到的返回值不同,根据不同返回值来作条件编写适用的判断结构代码,就可以实现简单的交互。
那么现在摆在我们面前的就是两个问题:一如何调整buttons参数来显示不同的对话框?二、点击不同的按钮的具体返回值汇总。以下内容重在理解,理解后就很简单。
一、buttons 参数
buttons参数是用来指定显示按钮的数量及形式,提示图标样式、默认按钮、消息框的强制相应等四方面内容的。
所以它实际可以由四组数值(或常数)组成的。当然四组数值并不是都必须的,根据需求选择即可。先分别来看四组值和对应的内容,再看如何使用。
第一组(0~5)决定对话库中按钮的类型和数量。
第二组(16,32,48,64)决定对话框中显示的图标。
第三组(0,256,512,768)绝对对话框中默认的活动按钮。活动按钮中的文字会有显示虚线。

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。