[452.xls]



' [mjSumple] のコード
'■■ フォーカス移動不可のコントロールを一括指定する ■■
'
'

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


Sub psSyusei_Click()
    Dim ctrl As Control 'コントロール型の変数を作成

    'frmSumple上の全てのコントロールを調べます。
    For Each ctrl In frmSumple.Controls
        'そのコントロールがCommandButtonだったら
        If Left(ctrl.Name, 3) = "cmd" Then
            ctrl.TabStop = False
        End If
    Next ctrl
    
    frmSumple.txtInput1.SetFocus
    
End Sub



' [frmSumple] のコード

Private Sub cmdSyusei_Click()
    
    Call psSyusei_Click

End Sub