[397.xls]



' [mjSumple] のコード
'■■ 複数列のリストボックスにデータソースを設定する ■■
'
'

Const intViewCol = 2    '何列目をデータとしてセットするか指定

'フォームを表示します
Sub frmSumple_Show()
             
    Sheets("Title").Range("E9").Value = ""
             
    With frmSumple.lstList
        .RowSource = "Title!G9:I13" 'リストのデータ
        .ColumnCount = 3            '何列で表示するか指定
        .ControlSource = "Title!E9" 'データをセットするセル
        
        .BoundColumn = intViewCol   '※何列目をデータとしてセットするか
    End With
    
    'フォームの表示
    frmSumple.Show

End Sub