学习资料：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 | 否 按钮被点击 |
示例
1 Function MessageBoxDemo() 2 'Message Box with just prompt message ' 3 MsgBox("欢迎您~") 4 5 'Message Box with title, yes no and cancel Butttons ' 6 result = MsgBox("你喜欢蓝色吗?", 3, "选择一个选项") 7 8 ' Assume that you press No Button ' 9 MsgBox ("返回 result 的值是：" &result) 10 End Function