是/否按钮VBA Excel。 if-else函数不起作用

Question

我想要实现的是，当您单击是时，应显示第一个用户表单，如果否，则另一个用户应显示：

Private Sub btnDataSecurity_Click()

Question = MsgBox("Is this client specific", vbYesNo)

If vbYes Then

With DBUnilever
    .StartUpPosition = 2
    .Top = (Application.Height / 2)
    .Left = (Application.Width / 2)
    .Show
End With
Unload Me

Else

With DataBreach
    .StartUpPosition = 2
    .Top = (Application.Height / 2)
    .Left = (Application.Width / 2)
    .Show
End With

End If

Unload Me

End Sub

if-else函数不适用于我。我不知道出了什么问题。有人可以帮我吗？

Answer 1

考虑更换：

If vbYes Then

具有：

If Question = vbYes Then

（发布的代码中可能还有其他错误）

Answer 2

正如加里的学生所说，您应将If vbYes Then替换为If Question = vbYes Then。 由于您发布了整个Sub，并且Dim没有Question，因此请确保您在声明它（作为Integer，因为这是MsgBox的返回类型），然后再使用。