excel - 如何检测用户是否选择取消InputBox VBA Excel

Question

我有一个输入框要求用户输入日期。如果用户单击“取消”或关闭输入对话框而不是按“确定”，如何让程序知道停止。

类似的东西如果str=vbCancel则退出子

目前，用户可以点击“确定”或“取消”，但程序仍然运行

str = InputBox(提示:="输入日期 MM/DD/YYY", _
标题:=“日期确认”，默认值:=日期)

Answer 1

如果用户单击“取消”，则会返回零长度字符串。您无法将其与输入空字符串区分开来。但是，您可以创建自己的自定义 InputBox 类...

编辑以正确区分空字符串和取消，根据 this answer .

你的例子

Private Sub test()
    Dim result As String
    result = InputBox("Enter Date MM/DD/YYY", "Date Confirmation", Now)
    If StrPtr(result) = 0 Then
        MsgBox ("User canceled!")
    ElseIf result = vbNullString Then
        MsgBox ("User didn't enter anything!")
    Else
        MsgBox ("User entered " & result)
    End If
End Sub

当用户删除默认字符串或单击“取消”时，会告诉用户他们取消了。

参见http://msdn.microsoft.com/en-us/library/6z0ak68w(v=vs.90).aspx