如何在VBA中使用列表框中的值？

Question

所以我有一个带有值的列表框。目的是单击一个项目，然后用匹配的数据填充一个单独的列表框。我可以处理第二个列表框的匹配和填充，但是现在当我在第一个列表框中选择项目时，我的代码没有返回值。我可以看到未返回我的值，因为代码在将单元格的值设置为我正在使用的“名称”变量的行上中断：

Private Sub ListBox1_Click()
    Dim iCnt As Long
    Dim name As Variant

    For iCnt = 0 To Me.ListBox1.ListCount - 1
        If ListBox1.Selected(iCnt) = True Then
            name = Me.ListBox1.List(iCnt)
            ThisWorksheet.Sheets("Program").Range("K6").Value = name
        End If
        'subsequent match and populate will go here.

End Sub

如何纠正我的语法以返回所选项目的字符串值，以便随后将其用于后续匹配？

Answer 1

name = Me.ListBox1.Value

这是正确的代码