Excel VBA下拉列表单元格判断失效问题求助

问题根源 #

仅判断下拉列表单元格H10等于"Failed"无反应，核心原因是H10的实际值与预期的"Failed"不匹配，常见场景包括：

• H10单元格存在前后空格或隐藏不可见字符
• 未明确指定工作表，导致引用了非目标工作表的H10
• 下拉列表的单元格实际存储值与显示值不一致（比如数据验证关联其他区域，存储的是索引而非文本）

排查步骤 #

先执行以下测试宏，确认H10的实际值：

Sub TestH10()
    Debug.Print "H10实际值：'" & Range("H10").Value & "'"
    Debug.Print "直接对比结果：" & (Range("H10").Value = "Failed")
    Debug.Print "去除空格后对比结果：" & (Trim(Range("H10").Value) = "Failed")
End Sub

运行后按Ctrl+G打开立即窗口，查看输出内容即可定位具体原因。

修正后的代码 #

针对最常见的空格问题和工作表引用问题，修改代码如下：

Sub failuremsg()
    '指定目标工作表，替换为你的实际工作表名称
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Sheets("Sheet1")
    
    With targetSheet
        '去除H10前后空格，避免隐藏字符干扰
        If Trim(.Range("H10").Value) = "Failed" And .Range("J10").Value = "" Then
            MsgBox "Failure message is missing", vbOKCancel
        End If
    End With
End Sub

额外注意事项 #

• 如果下拉列表是通过公式或名称管理器关联的动态区域，需确认H10存储的是文本值而非其他数据类型（如数值、错误值）
• 若H10是合并单元格，需引用合并区域的左上角单元格进行判断

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