从ListBox(主表)获取所选项目，然后在用户形式-VBA上的列表框中显示

Question

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

这是代码，

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"。任何建议，请分享您的想法。

Answer 1

，因此您需要使用ItemReq = Sheets("Main").Ent_ListBox.List(lItem)而不是ItemReq = Sheets("Main").Ent_ListBox.Selected(lItem)