別のセルにデータを入力してEnterキーを押した後、特定のセルに移動

Question

Excelシートがあり、A2、B2、C2にデータを入力しています。私がヒットした後、私は、カーソルが次の行を選択したい入力しますので、私はできA3、B3とC3とそう

に私はこの情報

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
If Range("C2").Value <> "" Then 
Range("A3").Select 
End If 
End Sub 

を見つけました。しかし、それだけでどのようにすることができ、1時間の作品の情報を入力します私は、移動選択の設定は後を入力しているものの上に、このプロセスを繰り返し、あなたの助けのための

以上のおかげで.....

Answer 1

あなたのツールで>オプション]ダイアログ：？

正確に何をしたい行う方法を紹介しますTech Republic: Three ways to control Excel's cursor movement during data entryの詳細情報がある...基本的に

、あなたがにデータを入力したい範囲のセルを選択し、Excelが最初のセルを選択し、 、各入力の後、{Tab}キーを押します。 Excelはカラットを次の空のセルに移動します。

Voila！

Answer 2

あなたはVBAが関与する必要がある場合に、それぞれの方向とステータスを設定したプロパティにあること：

Application.MoveAfterReturnDirection = xlToRight 
Application.MoveAfterReturn = True 

Answer 3

もう一つの方法。

1. あなたはコルAの任意の場所を入力すると、選択はあなたがコルB内の任意の場所に入力する場合は、コルのどこに入力すると、選択はコルC.
2. に移動しますコルB.
3. に移動しますCを押すと、選択はCol A（次の行）に戻ります。

コード：関連するシートコード領域に記載されています。

Private Sub Worksheet_Change(ByVal Target As Range) 
    On Error GoTo Whoa 

    Application.EnableEvents = False 

    If Not Target.Cells.CountLarge > 1 Then 
     If Not Intersect(Target, Columns(1)) Is Nothing Then 
      Target.Offset(, 1).Select 
     ElseIf Not Intersect(Target, Columns(2)) Is Nothing Then 
      Target.Offset(, 1).Select 
     ElseIf Not Intersect(Target, Columns(3)) Is Nothing Then 
      Target.Offset(1, -2).Select 
     End If 
    End If 
Letscontinue: 
    Application.EnableEvents = True 
    Exit Sub 
Whoa: 
    MsgBox Err.Description 
    Resume Letscontinue 
End Sub 

スクリーンショット