Question

这是我的代码：

Private Sub CommandButton1_Click()
    If (TextBox1.Value = "goals") Then
         s = MsgBox("write down your goals", vbYesNo, "goals")
    End If

    If (s = MsgBoxResult.Yes) Then
        InputBox("", "goals", "", 50, 50)
    End If
End Sub

如果你在消息框上按yes，它应该创建一个输入框，但它给出了我需要的错误424对象，调试器突出显示if语句，检查你是否单击是。

Answer 1

MsgBoxResult.*是.NET Enumeration，在VBA中不起作用。
您需要使用VbMsgBoxResult。

将第二个if子句更改为：

If (s = VbMsgBoxResult.vbYes) Then
    m = InputBox("", "goals", "", 50, 50)
End If

如同@ YowE3K所述，这也有效：

If (s = vbYes) Then
    m = InputBox("", "goals", "", 50, 50)
End If

使用两个If语句时需要错误424对象

1 个答案: