VBA多列列表框选中项与单元格比较时出现类型不匹配问题

错误原因 #

• 方括号使用错误：VBA 中[]是Evaluate方法的简写，作用是解析工作表公式表达式，并非包裹逻辑判断条件的语法。你将celltext = selectedtask放在方括号中时，VBA 会尝试把两个变量名当作工作表定义名称/单元格引用来解析，找不到对应内容就会触发类型不匹配错误。
• 变量拼写隐性风险：你定义的变量为selectedTask（末尾大写T），判断时写的是selectedtask（全小写），虽然VBA默认不区分变量大小写，但如果未开启Option Explicit，可能会因为变量未定义触发意外错误。

修正方案 #

直接删除判断条件外的方括号即可，修正后的代码片段如下：

' 建议代码头部强制添加 Option Explicit，强制变量声明
If LB_SelectTaskToDelete.ListIndex > -1 And LB_SelectTaskToDelete.Selected(LB_SelectTaskToDelete.ListIndex) Then
    Dim activetask As String, selectedTask As String, celltext As String, cell As Range
    For Each cell In rng
        activetask = CStr(cell.Offset(0, -2).Value)
        selectedTask = CStr(LB_SelectTaskToDelete.List(LB_SelectTaskToDelete.ListIndex, 0))
        celltext = CStr(cell.Text)
        ' 去掉方括号直接写判断条件
        If celltext = selectedTask Then MsgBox ("Works")
        If activetask = "Y" Then
            LB_SelectLineToDelete.AddItem cell.Offset(0, 3).Value
        End If
    Next cell
End If

额外优化建议 #

• 双列列表框取值时固定指定列索引，避免后续修改列顺序时逻辑出错
• 原可用的旧代码中也存在误用方括号的问题，建议同步修改，避免后续出现隐性故障

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