[398.xls]



' [mjSumple] のコード
'■■ 複数列のリストボックスにワークシートの値を設定する ■■
'
'
Dim strList(4, 4) 'リストデータ配列変数


'フォームを表示します
Sub frmSumple_Show()
               
Dim intCnt1 As Integer
Dim intCnt2 As Integer
               
    'ループ処理でワークシートのセル範囲を取得
    For intCnt2 = 0 To 4
        For intCnt1 = 0 To 4
            strList(intCnt1, intCnt2) = Cells(intCnt1 + 9, intCnt2 + 5).Value
        Next intCnt1
    Next intCnt2
               
    'リストに取得したデータをセットする
    With frmSumple.lstList
        .List() = strList 'リストのデータ
        .ColumnCount = 5  '表示列数
    End With
        
    'フォームの表示
    frmSumple.Show

End Sub