[382.xls]



' [mjSumple] のコード
'■■ コンボボックスでリストのデータ元を指定する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
    
    'データ設定
    frmSumple.cmbSelect1.RowSource = "Title!G9:G13"
    
   'フォームの表示
    frmSumple.Show
End Sub