複数列にしたリストボックスから複数選択された項目を取得

複数列にするには、ColumnCount に指定します。
ColumnCount = 2 とすると2列になります。

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

スポンサーリンク






画面

複数列に設定したリストボックスから、複数の選択項目を取得しています。
複数列のリストボックス

スポンサーリンク


実行コード

Option Explicit

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim lrow As Long
    
    lrow = 2
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            Cells(lrow, 2) = ListBox1.List(i, 0)
            Cells(lrow, 3) = ListBox1.List(i, 1)
            lrow = lrow + 1
        End If
    Next
End Sub

Private Sub UserForm_Initialize()
    
    ListBox1.ColumnCount = 2

    ListBox1.AddItem
    ListBox1.List(0, 0) = "TY-5"
    ListBox1.List(0, 1) = "パソコン"

    ListBox1.AddItem
    ListBox1.List(1, 0) = "TKB-6"
    ListBox1.List(1, 1) = "マウス"

    ListBox1.AddItem
    ListBox1.List(2, 0) = "KB-22"
    ListBox1.List(2, 1) = "キーボード"

    ListBox1.AddItem
    ListBox1.List(3, 0) = "UI-61"
    ListBox1.List(3, 1) = "DVDメディア"

    ListBox1.AddItem
    ListBox1.List(4, 0) = "UB-2"
    ListBox1.List(4, 1) = "USBハブ"

    ListBox1.AddItem
    ListBox1.List(5, 0) = "TBB-56"
    ListBox1.List(5, 1) = "タブレット"
End Sub

スポンサーリンク






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

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


Copyright (c) Excel-Excel ! All rights reserved