取消输入框退出子答案

【问题标题】：cancel input box exits sub取消输入框退出子
【发布时间】：2019-09-15 06:45:40
【问题描述】：

当我点击取消时，我希望它停止在轨道上并且什么也不做，如果我在没有输入值的情况下按确定，我设法让它停止，但是当我点击取消时它不会停止而是发送值 FALSE

Dim xht As Variant
If Intersect(Target, Range("D12:AS23")) Is Nothing Then
    Else
    If Worksheets("Calendar").Range("AT2") = Worksheets("Settings").Range("AQ6") Then
    xht = Application.InputBox("Insert your entitlement here", "Entitlement")
        If xht = vbNullString Then
            MsgBox ("User canceled!")
            Exit Sub
        Sheets("test").Range(Target.Address).Value = xht
        End If
    End If
End If
End Sub

【问题讨论】：

If xht = vbNullString Or xht = False Then
If VarType(xht) = vbBoolean Then Exit Sub
感谢小伙子们，太容易了！

标签： vba

【解决方案1】：

如果 xht = vbNullString 或 xht = False 则

感谢@BraX

【讨论】：