[399.xls]



' [mjSumple] のコード
'■■ 複数列のリストボックスの各列の幅を設定する ■■
'
'

Const strWidthVal = "30;50;20"    '※列幅指定(;で区切って３列分の幅を指定）

'フォームを表示します
Sub frmSumple_Show()
                          
    With frmSumple.lstList
        .RowSource = "Title!G9:I13" 'リストのデータ
        .ColumnCount = 3            '何列で表示するか指定
        
        .ColumnWidths = strWidthVal '※リストの各列の幅を設定
    End With
    
    'フォームの表示
    frmSumple.Show

End Sub