MsgBox 函数是在VBA中用于显示消息框的函数，它允许您向用户显示信息并等待用户的响应。MsgBox 函数的运行值（返回值）是一个整数，表示用户的响应。下面是一些常见的 MsgBox 函数的返回值：

1. vbOK（1）：
   - 用户单击了 "确定" 按钮。
   Dim result As Integer
   result = MsgBox("这是一个消息框", vbOKOnly, "标题")
   If result = vbOK Then
       ' 用户单击了 "确定" 按钮
   End If

2. vbCancel（2）：
   - 用户单击了 "取消" 按钮。
   Dim result As Integer
   result = MsgBox("这是一个消息框", vbOKCancel, "标题")
   If result = vbCancel Then
       ' 用户单击了 "取消" 按钮
   End If

3. vbYes（6）和 vbNo（7）：
   - 用户单击了 "是" 或 "否" 按钮。
   Dim result As Integer
   result = MsgBox("这是一个消息框", vbYesNo, "标题")
   If result = vbYes Then
       ' 用户单击了 "是" 按钮
   Else
       ' 用户单击了 "否" 按钮
   End If

4. vbRetry（4）、vbIgnore（5）和 vbAbort（3）：
   - 用户单击了 "重试"、"忽略" 或 "中止" 按钮。
   Dim result As Integer
   result = MsgBox("这是一个消息框", vbRetryCancel, "标题")
   If result = vbRetry Then
       ' 用户单击了 "重试" 按钮
   Else
       ' 用户单击了 "取消" 按钮
   End If

这些常量是预定义的整数值，用于表示用户在消息框中的选择。您可以根据 MsgBox 函数的返回值采取不同的操作。


转载请注明出处：http://www.zyzy.cn/article/detail/298/VBA