【VBA】ユーザーフォームのリストボックス

■作るとき

オブジェクト名「lst商品一覧」について、

ワークシート「○○マスタ」のA1〜B50の範囲のうち２列をリストボックスで選択できるようにする。

With Me.lst商品一覧

    .ColumnCount = 2

    .List = Sheets("○○マスタ").Range("A1:B50").Value

End With

■選択した項目を、ワークシート「発注票」のCells(i, 1)とCells(i, 2)に転記する。

With sheets("発注票")

    .Cells(i, 1).value = Me.lst商品一覧.List(Me.lst商品一覧.ListIndex, 0)

    .Cells(i, 2).value = Me.lst商品一覧.List(Me.lst商品一覧.ListIndex, 1)

End With