[383.xls]



' [mjSumple] のコード
'■■ ワークシートの任意の一行をコンボボックスに取り込む ■■
'
'

Dim intRow As Integer
Dim intCol As Integer

'フォームを表示します
Sub frmSumple_Show()
    
    intRow = 9 '取り込む行
    intCol = 5  '取り込む列
    
    Do Until Cells(intRow, intCol).Value = ""
    
        'AddItemで１件ずつ取り込む
        frmSumple.cmbSelect1.AddItem Cells(intRow, intCol).Value
        '列番号を１up
        intCol = intCol + 1
    Loop
    
   'フォームの表示
    frmSumple.Show
End Sub