はどのようにExcelで特定の範囲

Question

以内にそれを維持するために、Excelのカーソルをラップするために、私は3つの列があります。バーコードスキャナは、スキャンごとにENTERを送信します。 ENTERが次の列の代わりに（次の行ではなく）次の列が選択されるようにExcelを設定できると信じていますENTERの後に次の行に移動する方法がわかりませんcolumn3で検出されました。今私は、この持っている：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
    If Target.Column = 3 Then 
     If Target.Value = "{enter}" Then 
      MsgBox "SDf" 
     End If 
    End If 
End Sub 

しかしTarget.Valueセル内の文字列のみを検出し、それが押されたものを検出しません。

ENTERがcolumn 3で検出された後、次の行を選択するにはどうすればよいですか？

Answer 1

これにはvbaコードは必要ありません。

最も簡単な方法は、3つの列のセルをロック解除し、残りのセルをロックすることです。完了したら、シート全体を保護します。ただし、保護する場合は、Select Locked Cellsというオプションをオフにしてください。スクリーンショットを参照してください。黄色の列は保護されていません。

次のステップは、データを入力し、入力された後にキーを押すと、カーソルは次の列に移動するようにExcelを設定することです。あなたは行うことができます（例えばエクセル2010年）からFile TAB | Options | Excel Options | Advanced

カーソルが最後の列に達してデータが入力され、押下すると、カーソルが自動的に次の行に移動します。スナップショットを参照してください。

HTH

Answer 2

シッダールタの優れた提案に加えて、ここではイベントベースのアプローチです：

Private Sub Worksheet_Change(ByVal Target As Range) 

    'named (contiguous) range on input sheet 
    Const DATA_NAME As String = "DATA" 
    Dim rngData As Range, numCols As Long 

    If Target.Cells.Count > 1 Then Exit Sub 

    Set rngData = Me.Range(DATA_NAME) 
    numCols = rngData.Columns.Count 

    If Not Intersect(rngData, Target) Is Nothing Then 
     If Target.Column < rngData.Columns(numCols).Column Then 
      Target.Offset(0, 1).Select 
     Else 
      Target.Offset(1, -(numCols - 1)).Select 
     End If 
    End If 

End Sub