離れたセルに移動する

質問

エクセルのセルの移動について
セルＥ1に入力しenterキ-で
セルＡ2に移動する方法はありますか。

回答No.3

taisuke555 · ベストアンサー

ＶＢＡでよければ、参考にしてみてください。

処理したいブックの
[ThisWorkbook]
Private Sub Workbook_Activate()
If (ActiveSheet.Name = "Sheet1") Then
Application.OnKey "{Enter}", "Cell_Move"
Application.OnKey "~", "Cell_Move"
End If
End Sub

Private Sub Workbook_Deactivate()
If (ActiveSheet.Name = "Sheet1") Then
Application.OnKey "{Enter}"
Application.OnKey "~"
End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If (Sh.Name = "Sheet1") Then
Application.OnKey "{Enter}", "Cell_Move"
Application.OnKey "~", "Cell_Move"
End If
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If (Sh.Name = "Sheet1") Then
Application.OnKey "{Enter}"
Application.OnKey "~"
End If
End Sub

標準モジュール
Sub Cell_Move()
With ActiveCell
If (.Column = 5) Then
ActiveSheet.Cells(.Row + 1, 1).Activate
Else
ActiveSheet.Cells(.Row, .Column + 1).Activate
End If
End With
End Sub

シート名を"Sheet1"に限定してますので、違う場合は変更してください。
もっとスマートな方法もあるかもしれませんが、思いつきませんでした。

お礼

すばらしい回答を有難うこざいます。

回答を実行してみました、私の考えているとおりに実行できました。

回答No.2

imogasi

どうも質問はA列からＥ列まで横流しに入力して行き、
Ｅ列を入力すると、Ａ列次行にリターンして欲しいと言うことでしょう。
それなら＃１のご解答のＴＡＢとエンタの利用しかないでしょう。
Ｅ列より右のセルを保護して（カーソル移動を下でも右でもにしておいても）ＴＡＢキーを押し続けても、Ｅ列でエンタを入れなくても、ＥからＡ列次行に行くようである。
エクセルには入力範囲の制限方法が無く保護がそれか？
一般に何処にカーソルがあってもＡ２に戻るようにするなら
下記の方法が考えられますが、具体的用途が想像できません。
（１）A２セルに名前をつけて名前ボックスのそれをクリック。（２クリック）
　　挿入―名前－定義
（２）コマンドボタンを貼り付けて、クリック。（１クリック）クリックすると指定のセルＡ２へ移動。
（３）ワークシートのイベントを捉え、ＶＢＡで指定のセルＡ２へ移動。（０クリック）
などを考えられます。

回答No.1

papayuka

こんにちは。

例えば、A1からE1まで横に入力して行き、次のレコードA2にって事なら、A1～D1までは確定時にEnterではなくTabを押し、E1の確定時にだけEnterで確定するようにすると、次の行の先頭列に（ここではA2）に移動します。
この方法はスタート列がA列でなくても有効です。

単純にA列に戻りたいだけなら、Homeキーで戻れます。