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

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

Excelコントロール Tipsメニューに戻る

スポンサードリンク



シート画面

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

スポンサードリンク



実行コード

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

スポンサードリンク





Excelコントロール Tipsメニューに戻る

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


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved