リストボックス（メインシート）から選択したアイテムを取得し、Userform - 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)