[417.xls]



' [mjSumple] のコード
'■■ フォームの既定のコマンドボタンにする ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
    
    frmSumple.cmdBtn2.Default = True
    
   'フォームの表示
    frmSumple.Show

End Sub