[381.xls]



' [mjSumple] のコード
'■■ コンボボックスの値として設定するデータの位置を設定する ■■
'

'フォームを表示します
Sub frmSumple_Show()
    'リストに追加します
    frmSumple.cmbSelect1.AddItem "12345678"
    frmSumple.cmbSelect1.AddItem "87654321"
    
    'リストから選択された値をセットするセルの位置を設定します
    frmSumple.cmbSelect1.ControlSource = "Title!G10"
    
   'フォームの表示
    frmSumple.Show
End Sub