要显示在单元格单击后需要列表框值(Need List Box values to be displa

我有多个iteams 表单控件列表框中。 我想在电子表格中某一小区，以显示列表框中项目的用户选择的内容和改变，如果用户进行不同的选择。

不知道从哪里即使有这样的开始。

Answer 1:

我想你已经知道如何写一个单元格：

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

而下面这段代码将进入你的ListBoxChanged-事件 ，使细胞每一个新的价值已在列表框中选择时间显示新的数值。

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 

希望这可以帮助。

文章来源: Need List Box values to be displayed in cell after clicked