エクセルの表へ入力していくため、特定のだけセルだけ移動する方法

質問

エクセルで表を作った。A2、D2、A3、D3、A4、D4と同一行に2箇所づつ、数値を入力していきたい。A2を入力してEnterキーを入力するとD2へセルを飛ばす方法はなかったでしょうか？

回答No.4

KenKen_SP · ベストアンサー

意図から外れるかもしれませんが、保護されていない飛び飛びのセルは[TAB]キーで移動することが出来ます。

1.　A列とD列を選択し右クリック
2.　[セルの書式設定]-[保護]-[ロック]のチェックを解除
3.　シートを保護

で、データ入力後[Enter]キーの変わりに[Tab]キーを押してみて下さい。

それから、カーソルの移動方向は[右]にしておいて下さい。

お礼

No.３さんの回答でやろうかと思っていましたが、No.４さんの方法になるほど・・・って感心しました。ありがとうございました。

回答No.3

moe-mm

カーソルの動きを、下に移動から横に移動するに変更
　・メニューバーの「ツール」「オプション」を選択
　・編集タブを選択
　・入力後にセルを移動するを「下」から「右」に変更
　・ＯＫを選択

セルＣ・Ｄを非表示にする。
　・セルＣ・Ｄを全て選択
　・選択範囲内でマウスの右クリックでメニューを出す
　・メニューより「表示しない」を選択

入力するセルが隣同士に表示されるので、入力範囲をマウスで選択して入力する。（たとえばＡ２～Ｄ８）
エンターキーを押すと、カーソルがＡ２→Ｄ２→Ａ３と
移動します。

入力後、セルＡ・Ｅを選択し、マウスの右クリックメニューで「再表示」選択する。

注意）カーソルの動きも一番上の手順で直しておいてくださいね。

おやくにたてるかな？

お礼

ありがとうございます。これは使えます。

回答No.2

Wendy02

'シートモジュール(画面の下のシートタブ(例:Sheet1)をクリック
Private Sub Worksheet_Activate()
　Call OnkeyMethodOn
End Sub
Private Sub Worksheet_Deactivate()
　 Call OnkeyMethodOff
End Sub

'標準モジュールへ(マクロ－マクロ－Visual Basic /挿入－標準モジュール|クリック
Sub OnkeyMethodOn()
　 Application.OnKey "{ENTER}", "MoveCells"
End Sub
Sub OnkeyMethodOff()
　 Application.OnKey "{ENTER}"
End Sub
Sub MoveCells()
　If Not Intersect(ActiveCell, Range("A1:D5")) Is Nothing Then
　　Select Case ActiveCell.Address(0, 0)
　　　Case "A2"
　　　　Range("D2").Select
　　　Case "D2"
　　　　Range("A3").Select
　　　Case "A3"
　　　　Range("D3").Select
　　　Case "D3"
　　　　Range("A4").Select
　　　Case "A4"
　　　　Range("D4").Select
　　　Case "D4"
　　　　Range("A2").Select
　　　Case Else
　　　　Range("A2").Select
　　End Select
　End If
End Sub

お礼

ありがとうございます。ちょっと内容は難しすぎる感じです。（笑）

回答No.1

SAKURAMYLOVE

以下の手順でやってみてください。
(1)CRTLキーを押しながら、順にA2、D2、A3、D3、A4、D4と押していきます。
(2)必要箇所選択したら、名前ボックス（表の右上）の窓の中をクリックし、任意の名前（仮に順番）をつけます。
(3)名前ＢＯＸの▼マークをクリックし、順番を選択します。
(4)そのまま、ENTERキーか、TABキーを押せば順番にセルに飛んでいきます。

なお、セルを選択する際、セルを選択した順番も記憶してくれます。

お礼

投稿して、すぐに回答いただき、ありがとうございます。いろいろなやり方がありますね。勉強となりました。参考にさせていただきます。