vba - MsgBox 是/否 Excel VBA

Question

我的 VBA 脚本中有一个 Yes/No MsgBox，它返回一个问题供用户回答。每当按下"is"或“否”按钮时，除了运行相应代码的脚本之外，还会弹出另一个带有数字“6”或“7”的MsgBox。如何禁用第二个 MsgBox？

这是我的代码:

Dim question As Integer
question = MsgBox("Unfortunately, the Database has no sources regarding " & Category & " in " & country & ". Would you like to broaden your search and see all sources regarding " & country & "?", vbYesNo + vbQuestion, "Empty Sheet")

MsgBox question

If question = vbYes Then
    Sheets("Results").Range("D6").ClearContents
    Sheets("Results").Range("D7").ClearContents
    Category = Sheets("Results").Range("D6").Value
Else
    Sheets("Results").Range("D5").ClearContents
    Sheets("Results").Range("D6").ClearContents
    Sheets("Results").Range("D7").ClearContents
    Exit Sub
End If

Answer 1

MsgBox 函数返回一个 vbMsgBoxResult 值，该值是一个枚举(并且应该是 Long 整数，而不是 Integer )。

您调用了两次:

Dim question As Integer
question = MsgBox("Unfortunately, the Database has no sources regarding " & Category & " in " & country & ". Would you like to broaden your search and see all sources regarding " & country & "?", vbYesNo + vbQuestion, "Empty Sheet")

MsgBox question

一次分配问题，一次显示问题 - 此时将包含vbYes (6) 或 vbNo (7).

我会将question声明为vbMsgBoxResult以避免歧义，并在稍后使用它时获得自动完成/IntelliSense。实际上，结果 或答案 会是更好的标识符 - “问题”听起来像问题本身，而不是用户的响应。