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

Question

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

喜欢的东西 if str=vbCancel then exit sub

目前，用户可以点击确定或取消，但该计划仍然运行

str = InputBox(Prompt:="Enter Date MM/DD/YYY", _ Title:="Date Confirmation", Default:=Date)

Answer 1

如果用户点击取消，零长度字符串返回。您无法区分这与输入空字符串。但是你可以让你自己定制的InputBox类...

你的榜样

Private Sub test() 
    Dim Str As String 
    Str = InputBox("Enter Date MM/DD/YYY", "Date Confirmation", Now) 
    If Str = vbNullString Then 
     MsgBox ("User canceled!") 
    End If 
End Sub 

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

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