VBA 学习笔记 - 消息框
学习资料:https://www.yiibai.com/vba/vba_macro_comments.html
注释
单引号或 REM 开头
丸子:多行注释咋办?
消息框(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 | 应用程序模式 - 当前的应用程序将不会工作,直到用户响应消息框。 |
4056 | vbSystemModal | 系统模式 - 所有的应用程序将不会工作,直到用户响应消息框。 |
返回值
返回值 | 返回值名称 | 说明 |
1 | vbOK | 确定 按钮被点击 |
2 | vbCancel | 取消 按钮被点击 |
3 | vbAbort | 中止 按钮被点击 |
4 | vbRetry | 重试 按钮被点击 |
5 | vbIgnore | 忽略 按钮被点击 |
6 | vbYes | 是 按钮被点击 |
7 | 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 Function
VBA 学习笔记 - 消息框的更多相关文章
- Storm学习笔记 - 消息容错机制
Storm学习笔记 - 消息容错机制 文章来自「随笔」 http://jsynk.cn/blog/articles/153.html 1. Storm消息容错机制概念 一个提供了可靠的处理机制的spo ...
- VBA学习笔记
这是一个学习VBA编程的学习笔记. 一. 介绍 二. 使用手册 2.1. 如何在Excel2010中开始使用VBA? 2.2. 如何使用VBA编辑器进行编程? 三. 语法说明 3.1 数据类型 3.2 ...
- objc_msgSend消息传递学习笔记 – 消息转发
该文是 objc_msgSend消息传递学习笔记 – 对象方法消息传递流程 的基础上继续探究源码,请先阅读上文. 消息转发机制(message forwarding) Objective-C 在调用对 ...
- VBA 学习笔记 - 输入框
学习资料 https://www.yiibai.com/vba/vba_input_box.html 输入框 InputBox 函数说明 提示用户输入值.当输入值后,如果用户单击确定 按钮或按下键盘上 ...
- VBA 学习笔记 - 变量与常量
学习资料:https://www.yiibai.com/vba/vba_variables.html 变量和常量命名规则 必须以字母开头 不能包含空格.句点(.).感叹号(!)或字符@,&,$ ...
- VBA 学习笔记 - 日期
date() 返回当前的系统日期 返回格式为 YYYY/MM/DD CDate() 学习资料:https://www.yiibai.com/vba/vba_cdate_function.html 将有 ...
- VBA 学习笔记 - 运算符
学习资料:https://www.yiibai.com/vba/vba_operators.html 算术运算符 加减乘除模指,这个没啥特别的. 比较运算符 和 Lua 相比,判断相等变成了一个等于号 ...
- 3.5html学习笔记之框模型,盒子模型
块元素:block 两个相邻的元素外边距,两者之间取最大. 浮动(定位机制针对框来说): 1.position:absolute,relative,fixed 1)relative:在原来的位置上进行 ...
- VBA学习笔记(8)--遍历所有文件夹和文件
说明(2017.3.26): 1. 采用的是兰色幻想教学视频中的“父子转换法” 2. 这种VBA的遍历文件夹方法非常难理解,主要是因为dir这个函数,第一次带参数调用,返回的是此目录下的第一个文件,第 ...
随机推荐
- 洛谷 P5569 [SDOI2008]石子合并 GarsiaWachs算法
石子合并终极通用版 #include<bits/stdc++.h> using namespace std ; ]; int n,t,ans; void combine(int k) { ...
- kali 插上耳机没声音
这几天装kali装的真是心力憔悴,好不容易勉强可以使用了,插上耳机想要放松下,结果没有声音? excusu me? 在经历各种方法之后终于找到了解决方法,亲测可行. 1.先打开终端,输入systemc ...
- 【转载】Java泛型(二)
转自:http://www.cnblogs.com/lwbqqyumidi/p/3837629.html 一. 泛型概念的提出(为什么需要泛型)? 首先,我们看下下面这段简短的代码: 1 public ...
- 【做题笔记】P1969 积木大赛
非常感谢 rxz 大佬提供的思路. 首先放个图(rxz 画的) 采用贪心的策略:对于一个期望高度 \(h_i\) ,如果大于 \(h_{i-1}\),那么最终答案要加上二者之差:如果小于或等于,那么说 ...
- 迭代器:遍历集合元素的操作. iterator()
package seday11; import java.util.ArrayList;import java.util.Collection;import java.util.Iterator; / ...
- Flask 教程 第十八章:Heroku上的部署
本文翻译自The Flask Mega-Tutorial Part XVIII: Deployment on Heroku 这是Flask Mega-Tutorial系列的第十八部分,我将在其中部署M ...
- FreeRTOS学习笔记4:时间管理
绝对时间:abs Time相对时间:百分比% time IDLE是空闲任务. RUN_Time_State:port...()初始化一个外设提供时基单元 //具体初始化要自己操作这个定时器的分辨率高于 ...
- Windows Server 2008 R2远程桌面服务安装配置和授权激活
1.安装 2.远程桌面授权激活 2.1 管理工具——远程桌面服务——(远程桌面授权管理)RD授权管理器: 2.2 由于RD授权服务器还未激活,所以授权服务器图标右下角显示红色×号: 点服务器展开——右 ...
- 第二十一篇 Linux中的环境变量简单介绍
环境变量之 PATH 定义解释器搜索用户执行命令的路径 获取PATH变量的值: echo $PATH /usr/local/bin:/usr/local/sbin:/usr/bin:/us ...
- gitlab创建项目及分支
链接:https://blog.51cto.com/13760226/2426209