在单元格中显示单击的列表框值

Question

我有一个包含多个项目的表单控件列表框。

我希望工作表上的某个单元格显示用户选择的列表框项的内容，并在用户做出不同选择时进行更改。

Answer 1

我猜你已经知道如何写入单元格了：

Set TxtRng = ActiveWorkbook.Sheets("YourSheet").Range("A1")
TxtRng.Value = "Your Text Here"

以下代码将进入您的 ListBoxChanged-Event，因此每次在列表框中选择新值时，单元格都会显示新值。

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        SelectedItemText = ListBox1.List(i)
    End If
Next i
'Set the value of the cell to the selected item.
TxtRng.Value = SelectedItemText 

希望这会有所帮助。