離れたセルに移動する

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

No.3 ベストアンサー 回答者： taisuke555 回答日時： 2002/09/21 00:08

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

処理したいブックの
[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"に限定してますので、違う場合は変更してください。
もっとスマートな方法もあるかもしれませんが、思いつきませんでした。

この回答へのお礼

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

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

お礼日時：2002/09/21 07:27

No.2 回答者： imogasi 回答日時： 2002/09/20 23:28

どうも質問はA列からＥ列まで横流しに入力して行き、

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

No.1 回答者： papayuka 回答日時： 2002/09/20 22:17

こんにちは。

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

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