MsgBox函数显示一个消息框,并等待用户点击一个按钮,然后根据用户点击的按钮执行相关的操作。

语法

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

参数说明

  • prompt - 必需的参数。在对话框中显示为消息的字符串。提示的最大长度大约为1024个字符。 如果消息扩展为多行,则可以使用每行之间的回车符(Chr(13))或换行符(Chr(10))来分隔行。
  • buttons - 可选参数。一个数字表达式,指定要显示的按钮的类型,要使用的图标样式,默认按钮的标识以及消息框的形式。如果留空,则按钮的默认值为0
  • title - 可选参数。 显示在对话框的标题栏中的字符串表达式。 如果标题留空,应用程序名称将被放置在标题栏中。
  • helpfile - 可选参数。一个字符串表达式,标识用于为对话框提供上下文相关帮助的帮助文件。
  • Context - 可选参数。一个数字表达式,用于标识由帮助作者分配给相应帮助主题的帮助上下文编号。 如果提供上下文,则还必须提供helpfile

Buttons 参数可以使用以下任何值 -

  • 0 vbOKOnly - 仅显示“确定” 按钮。
  • 1 vbOKCancel - 显示“确定”“取消” 按钮。
  • 2 vbAbortRetryIgnore - 显示“中止”“重试”“忽略” 按钮。
  • 3 vbYesNoCancel - 显示“是”“否”“取消” 按钮。
  • 4 vbYesNo - 显示“是”“否”按钮。
  • 5 vbRetryCancel - 显示“重试”“取消”按钮。
  • 16 vbCritical - 显示严重消息图标。
  • 32 vbQuestion - 显示警告查询图标。
  • 48 vbExclamation - 显示警告消息图标。
  • 64 vbInformation - 显示信息消息图标。
  • 0 vbDefaultButton1 - 第一个按钮是默认的。
  • 256 vbDefaultButton2 - 第二个按钮是默认的。
  • 512 vbDefaultButton3 - 第三个按钮是默认的。
  • 768 vbDefaultButton4 - 第四个按钮是默认的。
  • 0 vbApplicationModal 应用程序模式 - 当前的应用程序将不会工作,直到用户响应消息框。
  • 4096 vbSystemModal 系统模式 - 所有的应用程序将不会工作,直到用户响应消息框。

上述值在逻辑上分为四组:第一组(05)指示要在消息框中显示的按钮。第二组(16,32,48,64)描述要显示的图标的样式,第三组(0,256,512,768)指示哪个按钮必须是默认的,第四组(0,4096 )确定消息框的形式。

返回值

MsgBox函数可以返回以下值之一,可用于标识用户在消息框中单击的按钮。

  • vbOK - 确定 按钮被点击。
  • vbCancel - 取消 按钮被点击。
  • vbAbort - 中止 按钮被点击。
  • vbIgnore - 忽略 按钮被点击。
  • vbYes - 按钮被点击。
  • vbNo - 按钮被点击。

示例

Function MessageBoxDemo()
'Message Box with just prompt message '
MsgBox("欢迎您~") 'Message Box with title, yes no and cancel Butttons '
result = MsgBox("你喜欢蓝色吗?", , "选择一个选项") ' Assume that you press No Button '
MsgBox ("返回 result 的值是:" &result)
End

输出结果

第1步 - 上述功能函数可以通过单击VBA窗口上的“运行”按钮或通过从Excel工作表调用函数来执行,如以下屏幕截图所示 -

运行子程序 -

第2步 - 显示一个简单的消息框,并显示消息“欢迎”和“确定”按钮

第3步 - 点击确定后,另一个对话框会显示一个消息,同时显示“是,否和取消”按钮。

第4步 - 点击“否”按钮后,该按钮(7)的值将被存储为一个整数,并显示为一个消息框给用户,如以下屏幕截图所示。使用这个值,可以理解用户点击了哪个按钮。
 

VBA消息框(MsgBox)(五)的更多相关文章

  1. VBA消息框

    MsgBox函数显示一个消息框,并等待用户点击一个按钮,然后根据用户点击该按钮的动作执行. 语法 MsgBox(prompt[,buttons][,title][,helpfile,context]) ...

  2. VBA 学习笔记 - 消息框

    学习资料:https://www.yiibai.com/vba/vba_macro_comments.html 注释 单引号或 REM 开头 丸子:多行注释咋办? 消息框(MsgBox) 函数功能:显 ...

  3. AloneJs.msgbox() —— 弹出消息框

    一.引用 <link href="https://cdn.suziyun.com/alonejs.min.css" rel="stylesheet" /& ...

  4. 按键精灵实现自动退出的MsgBox消息框

    要实现自动倒计时退出的消息框,代码如下: Set wsh = CreateObject("WScript.Shell") wsh.popup "设置完毕,3秒后自动退出! ...

  5. 【C#】分享一个可携带附加消息的增强消息框MessageBoxEx

    --------------201507160917更新--------------- 无意中发现标准消息框在Windows7是有声音的,只是在Windows server 2008(R2)无声,而我 ...

  6. window-messager(消息框)

    所有的消息框都是异步的.用户可以在交互消息之后使用回调函数去处理结果或做一些自己需要处理的事情. 一.alert(警告框) <script type="text/javascript& ...

  7. EasyUI - Messager消息框

    全局设定: JavaScript代码: //设置按钮中的文字,默认是-ok/cancel ,可以任意设置文字,比如现在的-确认/取消 $.messager.defaults = { ok: '确认', ...

  8. 【Web】一个非常简单的移动web消息框

    适用:h5+jquery,移动网页最佳 最近在写个简单的公众号页面,前端验证时有些信息要提示,很简单的需求实在不想找啥现成的轮子,又不至于用alert这么粗暴,遂写了个非常简单的消息框,效果如图: 特 ...

  9. win32 汇编学习(2):消息框

    这一次,我们将用汇编语言写一个 Windows 程序,程序运行时将弹出一个消息框并显示"你好,我的第一个Win32汇编程序". 理论知识 Windows 为编写应用程序提供了大量的 ...

随机推荐

  1. python笔记7 logging模块 hashlib模块 异常处理 datetime模块 shutil模块 xml模块(了解)

    logging模块 日志就是记录一些信息,方便查询或者辅助开发 记录文件,显示屏幕 低配日志, 只能写入文件或者屏幕输出 屏幕输出 import logging logging.debug('调试模式 ...

  2. Java 处理json字符串value中多余的双引号

    转: Java 处理json字符串value中多余的双引号 一.错误场景 json字符串的value值中有多余的双引号 1.直接上错误的json字符串 1 String errorJsonStr =  ...

  3. elasticsearch _search结果解析

    kibana中输入:GET /_search 会返回一下结果: { "took": 9, # took:整个搜索请求花费多少毫秒 "timed_out": fa ...

  4. keepalived两台机器同时出现vip问题

    配置文件: 主:192.168.1.14 ! Configuration File for keepalived global_defs { script_user root enable_scrip ...

  5. (十六)toString()的用法

    每一个非基本类型的对象都有一个toString()方法,而且当编译器需要一个String而你却只有一个对象时候,该方法便会被调用. public class te { public String to ...

  6. 粒子系统与雨的效果 (DirectX11 with Windows SDK)

    前言 最近在学粒子系统,看这之前的<<3D图形编程基础 基于DirectX 11 >>是基于Direct SDK的,而DXSDK微软已经很久没有更新过了并且我学的DX11是用W ...

  7. nginx目录学习

    目录 一. Nginx 基础知识 二. Nginx 安装及调试 三. Nginx Rewrite 四. Nginx Redirect 五. Nginx 目录自动加斜线: 六. Nginx Locati ...

  8. 49.Django起步学习

    django起步 django安装 pip install django==2.0.4(版本号) pip install django 默认安装最新版本 创建项目 django-admin start ...

  9. php $_SERVER['HTTP_REFERER']详解

    php $_SERVER['HTTP_REFERER']详解 ceshia.php <pre>echo '<a href="ceshib.php">cesh ...

  10. eclipse搭建springboot的项目

    记录一次自己搭建springboot的经历 springboot项目创建 这里借用别的博主分享的方法 https://blog.csdn.net/mousede/article/details/812 ...