MsgBox 是/否 Excel VBA

Question

我的 VBA 脚本中有一个 Yes/No MsgBox，它返回一个问题供用户回答。每当按下“是”或“否”按钮时，除了运行其各自代码的脚本外，还会弹出另一个带有数字“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

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

我会声明 question As vbMsgBoxResult 以避免歧义，并在您以后使用它时获得自动完成/智能感知。实际上，result 或 answer 会是更好的标识符 - “问题”听起来像问题本身，而不是用户的响应。

Answer 2

只需使用

question = "Unfortunately, the Database has no sources regarding " & Category & " in " & country & ". Would you like to broaden your search and see all sources regarding " & country & "?."

足够了。

另外if函数可以

If Msgbox(Question) = vbYes then 
    ...
End If

不要调用 MsgBox 两次

Answer 3

删除MsgBox question。这会不必要地创建一个填充有问题值的第二个消息框（6 或 7，取决于您选择的是还是否，例如 vbYes 的返回值是 6）。