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

它可以工作，但它在Userform的Listbox中显示的值为-1，显然不是Selected项。所选项目是“CaraPhone”。任何建议，请分享您的想法。

Answer 1

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

从列表框（主表）中获取所选项目并将其显示在Userform - VBA上的列表框中

1 个答案: