セルのデータをリストボックスに追加する（Additem）

リストボックスに項目を追加するには、Additemメソッドを使用します。
複数セルの内容を追加するには、ループで一つずつAdditemで加えて行きます。

Homeに戻る > ExcelコントロールTipsへ

シート画面

商品リストの品名「冷蔵庫　～　フードプロセッサー」がリストボックスに追加されています。
リストボックスを使用したユーザーフォーム

実行VBAコード

Option Explicit

Private Sub UserForm_Initialize()
    Dim i As Integer

    i = 5
    '空白セルまでループ
    Do Until Worksheets("商品リスト").Cells(i, 2).Value = ""
        'リスト項目に追加
        ListBox1.AddItem Worksheets("商品リスト").Cells(i, 2).Value
        i = i + 1
    Loop

End Sub

Homeに戻る > ExcelコントロールTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します