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

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

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

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

Listbox Populated From Worksheet, Can't Find Original Value

excel

vba

listbox

userform

populate