[384.xls]



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

Dim intRow As Integer
Dim intCol As Integer

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