[453.xls]



' [mjSumple] のコード
'■■ 特定のテキストボックスにフォーカスが移らないようにする ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
   
    'フォームの表示
    frmSumple.Show
    
End Sub



' [frmSumple] のコード

Private Sub cmdSyusei_Click()
    
    'フォーカス移動しないテキストボックスを直接指定
    txtInput2.TabStop = False
    txtInput4.TabStop = False
    
    '先頭にフォーカスをセット
    txtInput1.SetFocus
End Sub