我在用户窗体中有一个列表框，其中包含几行过滤的数据。我希望能够选择其中的一行并将其显示在另一个列表框中（仅是该选定行中的值，其他都不会）
我当前的代码是：
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
第二行代码允许将列表中的选定项目复制到文本框。
如果您需要更多我的代码，我可以为您提供。
这可能是一个简单的问题，但我似乎无法在任何地方找到答案，也无法找出允许它发生的代码。
先感谢您！
如果我了解您的要求，那么应该为一栏做您需要的：
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以外的每一列添加其他行，从而更改每一列的索引。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句