Excel VBA：ESC/CANCEL弹窗正常，空内容点OK无弹窗问题

你的代码在处理用户取消（ESC/Cancel）和空输入时，因类型兼容性问题导致弹窗未正常触发。当使用Application.InputBox时，Cancel操作返回布尔型False，而空输入返回空字符串，原代码中Len(APRef)作用于布尔值会触发类型错误（若有错误处理则跳过弹窗），或隐式类型转换导致逻辑异常。

解决方案 #

• 方案1：分类型判断（推荐，逻辑清晰）
  先区分取消操作和空输入，避免类型冲突：

  Dim APRef As Variant
  ' 限定输入为文本类型，Cancel时返回布尔型False
  APRef = Application.InputBox("Enter WP reference", "Input Required", Type:=2)
  
  ' 处理取消操作
  If IsBoolean(APRef) And APRef = False Then
      MsgBox "No WP reference entered, process cancelled", vbCritical
      Exit Sub
  End If
  
  ' 处理空输入（含全空格）
  If Len(Trim(APRef)) = 0 Then
      MsgBox "No WP reference entered, process cancelled", vbCritical
      Exit Sub
  End If
  

• 方案2：合并条件判断
  通过VarType识别变量类型，确保两种场景都触发弹窗：

  Dim APRef As Variant
  APRef = Application.InputBox("Enter WP reference", "Input Required", Type:=2)
  
  If (VarType(APRef) = vbBoolean And Not APRef) Or (Len(Trim(APRef)) = 0) Then
      MsgBox "No WP reference entered, process cancelled", vbCritical
      Exit Sub
  End If
  

• 如果使用普通InputBox
  普通InputBox取消和空输入都返回空字符串，直接判断即可：

  Dim APRef As String
  APRef = Trim(InputBox("Enter WP reference", "Input Required"))
  
  If APRef = "" Then
      MsgBox "No WP reference entered, process cancelled", vbCritical
      Exit Sub
  End If
  

内容的提问来源于stack exchange，提问作者Tayque Holmes