从工作表填充列表框，找不到原始值

Question

我能够使用工作表中的一系列值来填充列表框。现在，我想填充从列表框中选择的值旁边的单元格，但似乎无法找到从列表框中选择的原始值。

Private Sub cmdAdd_Click()

LastRow = Cells(Rows.Count, 2).End(xlUp).Row

For j = 2 To LastRow
    If Cells(j, 2).Value = cmbStage.Value Then
        For k = 2 To LastRow
            If Cells(k, 3).Value = lstJobCard.Value Then
                Cells(k, 4).Value = lstJobCard.Value & ": " & txtNote.Value
            End If
        Next k
    End If
Next j
Unload Me

End Sub

我在做什么错了？

Answer 1

我知道了。与其说该单元格值是否等于lstJobCard.Value，不如说“ Like”。例如

Private Sub cmdAdd_Click()

LastRow = Cells(Rows.Count, 2).End(xlUp).Row

For j = 2 To LastRow
    If Cells(j, 2).Value = cmbStage.Value Then
        For k = 2 To LastRow
            If Cells(k, 3).Value Like lstJobCard.Value Then
                Cells(k, 4).Value = lstJobCard.Value & ": " & txtNote.Value
            End If
        Next k
    End If
Next j
Unload Me

End Sub

仍然不确定为什么，但是现在可以使用了。