需要列表框值在单击后显示在单元格中

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 

希望这有帮助。