excel - 列表框中的选定行复制到另一个列表框

Question

我在用户表单中有一个包含几行过滤数据的列表框。我希望能够选择其中一行并将其显示在另一个列表框中(仅该选定行中的值，其他都没有)

我当前的代码只是:

Private Sub SelectHousingList_Click()
HousingList.Text = SelectHousingList.Selected(Row)
End Sub

'HousingList' 是我希望将值移动到的列表框。

而“SelectHousingList”是过滤数据的行。

之前在这段代码中，我使用了与此类似的代码从值列表中进行选择(但不是整行值)。

Private Sub MaterialList_Click()
SelectedMaterialText.Value = MaterialList.Text
Worksheets("FSC PSC PFC").Range("D4").Value = SelectedMaterialText.Value
End Sub

第二行代码允许将列表中的选定项目复制到文本框。

如果您需要更多我的代码，我可以为您提供。

这可能是一个简单的问题，但我似乎无法在任何地方找到答案或找出允许它发生的代码。

先感谢您!

Answer 1

如果我了解您的要求，这应该可以满足您对单个列的需求:

Private Sub SelectHousingList_Click()
   HousingList.AddItem SelectHousingList.Value
End Sub

如果有 2 列，那么:

Private Sub SelectHousingList_Click()
   HousingList.AddItem SelectHousingList.List(SelectHousingList.ListIndex)
   HousingList.List(HousingList.ListCount - 1, 1) = SelectHousingList.List(SelectHousingList.ListIndex, 1)
End Sub

您需要为超过 2 的每一列添加额外的行，更改每一列的索引。