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