从列表框（主表）中获取所选项目并将其显示在用户窗体的列表框中 - VBA答案

【问题标题】：Get Selected items from Listbox (main sheet) and display it in a listbox on Userform - VBA从列表框（主表）中获取所选项目并将其显示在用户窗体的列表框中 - VBA
【发布时间】：2017-05-31 11:33:06
【问题描述】：

我正在尝试从主工作表上的列表框中获取选定的项目，并在用户表单上的列表框中获取这些选定的项目。

这是代码，

Sub Viewselectshow()

 For lItem = 0 To Sheets("Main").Ent_ListBox.ListCount - 1

        If Sheets("Main").Ent_ListBox.Selected(lItem) = True Then

            ItemReq = Sheets("Main").Ent_ListBox.Selected(lItem)

            ViewSelectedEntitlements.ViewEntitlementListbox.AddItem ItemReq

        End If

    Next

ViewSelectedEntitlements.Show

End Sub

它有效，但它在用户窗体的列表框中显示值 -1，这显然不是所选项目。所选项目是“CaraPhone”。任何建议，请分享您的想法。

【问题讨论】：

似乎您正在处理索引而不是值尝试ItemReq = Sheets("Main").Ent_ListBox.Selected(lItem).Value
不，我尝试了 .Value 方法，但它对我不起作用。
ItemReq = Sheets("Main").Ent_ListBox.List(lItem)

标签： vba excel

【解决方案1】：

所以你需要使用ItemReq = Sheets("Main").Ent_ListBox.List(lItem) 而不是ItemReq = Sheets("Main").Ent_ListBox.Selected(lItem)

【讨论】：