本文作者:office教程网

Excel VBA MsgBox函数

office教程网 2024-11-13 02:12:01 1235
后台-插件-广告管理-内容头部广告位
后台-系统设置-扩展变量-手机广告位-内容正文顶部
摘要:

下面,继续做一些有趣的事情。让VBA能够给我们弹出对话框,让用户作出响应,实现与用户交互。这里要使用VBA的内置函数:MsgBox函数和InputBox函数。

与Excel工作表函数一样,VBA也包含有各种内置函数,以简化计算和操作,而MsgBox函数和InputBox函数就是其中常用的函数。这里,先介绍MsgBox函数。

显示信息

MsgBox函数可以为我们提供输出信息,将VBA代码的运行结果告诉我们。看下面简单的示例,代码运行后会弹出一个对话框,如图右侧所示。

此时,Excel告诉我们相关信息,并会等待我们作出响应,单击“确定”,对话框消失。当然,这只是MsgBox函数最基本的用法。我们可以让它显示更丰富的信息,例如,显示更有意义的标题、更多的选择按钮、图标,甚至获取用户响应后的值。

将上面的程序代码修改如下:

Sub MsgBoxTest()

Dim i As Long

i = 5

MsgBox Prompt:=”变量i的值是”& i, Buttons:=vbOKCancel vbCritical, Title:=”显示变量的值”

End Sub

运行后的结果如下图:

图中附加说明了MsgBox函数中各参数在对话框中对应的显示。

MsgBox函数的语法

MsgBox函数的语法如下:

MsgBox ( prompt [ , buttons ] [ , title ] [, helpfile , context ] )

其中,方括号内的参数为可选参数。参数说明如下图所示:

还有两个参数helpfile和context,我们暂且不要管它。

下表列出了参数buttons的值及说明:

常量说明

vbOKOnly0只显示“确定”按钮

vbOKCancel1显示“确定”和“取消”按钮

Excel VBA员工管理系统开发

“什么?才学了点皮毛就可以开发系统了?”我想您读到这儿,看到本篇的题目,一定会感到非常疑惑。 如果您仔细体会了前面的小短文内容,就可以开始着手来试着做一些有趣的事情了。不错!现在我们就尝试用已学到的知识来逐步开发一套小系统。为何这么快就可以运用VBA来开始实战了呢?这就是Excel作为一个开发平台的优势! 不过,在

vbAbortRetryIgnore2显示“终止”、“重试”和“忽略”按钮

vbYesNoCancel3显示“是”、“否”和“取消”按钮

vbYesNo4显示“是”和“否按钮

vbRetryCancel5显示”重试“和”取消“按钮

vbCritical16显示”关键信息“图标

vbQuestion32显示”警告询问“图标

vbExclamation48显示”警告消息“图标

vbInformation64显示”通知消息“图标

vbDefaultButton10第一个按钮为默认按钮

vbDefaultButton2256第二个按钮为默认按钮

vbDefaultButton3512第三个按钮为默认按钮

vbDefaultButton4768第四个按钮为默认按钮

vbSystemModel4096所有应用程序都暂停,直至用户对消息框作出反应

vbMsgBoxHelpButton16384显示帮助按钮

获取响应的值

在用户单击了MsgBox函数对话框中的按钮后,我们可以获取用户的行为,即用户单击了哪个按钮。这样,我们可以根据用户的选择作出相应的处理。

我们可以将MsgBox函数的结果赋给某个变量,此时需要将参数放在括号中,例如:

Sub MsgBoxTest1()

Dim Msg As Integer

Msg = MsgBox(“您要继续运行吗?”,vbYesNo)

MsgBox Msg

End Sub

代码运行结果如下图所示:

接下来,我们就可以编写代码对用户单击的选择进行相应的回应。这种情形经常使用在条件判断语句中,在述相关内容时,我们再给出使用示例。

Excel VBA End With结构,专为对象而生

我们主要是和对象打交道,这包括各种各样的对象以及由这些对象组成的集合对象。我们来看看并学习Excel内部是如何处理对象的。 我们先来录制一个宏。 在Excel中,打开宏录制器,录制下面的操作:在工作表单元格A1中输入“Excel”,设置其字体为红色,单元格背景色为黄色。录制的代码如下: Sub 宏3() '

后台-插件-广告管理-内容底部广告位
后台-系统设置-扩展变量-手机广告位-内容正文底部
未经允许不得转载:

作者:office教程网,原文地址:Excel VBA MsgBox函数发布于2024-11-13 02:12:01
转载或复制请以超链接形式并注明出处 演示站

分享到:

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏