excelのセルの自動移動

excel で　E 列に入力後次の行のAの列に自動的に移動したいのですが、どのようにコードを書けばいいのでしょうか？
ぜひ教えてください。

No.2 ベストアンサー 回答者： imogasi 回答日時： 2002/10/09 17:37

「コードを書く」－－＞ＶＢＡで良いと解して

Ｃ列に入力が終わって、ＥＮＴＥＲキー、矢印キー（４種）、ＤＥＬキーで、次行のＡ列に行きます。
下記Ｃ列－＞３ですが、Ｆ列なら６に変えて下さい。
Private Sub Worksheet_Change(ByVal Target As Range)
c = Target.Column
r = Target.Row
If c >= 3 Then
Worksheets("sheet1").Cells(r + 1, 1).Select
End If
End Sub

この回答へのお礼

どうもありがとうございました。
おかげさまで完成いたしました。
今後もよろしくお願いいたしtます

お礼日時：2002/10/11 14:33

No.5 回答者： maruru01 回答日時： 2002/10/10 09:35

こんにちは。

maruru01です。

仮に入力範囲がA1～E10としたら、その範囲をまず選択しておきます。
この時、一番最初に入力するセル（例えばA1）をまずクリックして、そこからドラッグするようにします。
もしCtlキーで飛び飛びに選択する場合は、最初に入力するセルを含む範囲を最後に選択します。
この状態なら、Enterキーをクリックするたびに下に移動し、選択範囲の一番下に来たら、右隣の一番上のセルに移動し、選択範囲内のみを周回します。
Tabキーなら、横移動で、一番右に来たら一つ下の行の一番左に移動します。
Enterで横移動したいなら、メニューの[ツール]→[オプション]→[編集]タブの[入力後にセルを移動する]のチェックが入っている状態で、[方向]に「右」を選択します。

この回答へのお礼

どうもありがとうございました。
おかげさまで完成いたしました。
今後もよろしくお願いいたしtます

お礼日時：2002/10/11 14:33

No.4 回答者： coco1 回答日時： 2002/10/09 19:52

それでしたら、マクロを使わなくても、タブキーとエンターキーの組合せでできますが、マクロでなくてはならないのでしょうか？

ちなみに、Ａ列の入力を終えたらTABでB列に移動します。同様にセルの移動はTABで行い、E列の入力を終えたときのみEnterを押すと、下の行のA列に移動します。ただし、オプションで、入力後のセルの移動を「下」にしておく必要がありますが。

この回答へのお礼

どうもありがとうございました。
おかげさまで完成いたしました。
今後もよろしくお願いいたしtます

お礼日時：2002/10/11 14:33

No.3 回答者： kazuhiko5681 回答日時： 2002/10/09 19:12

はじめまして。

次のように操作してみて下さい。
１.新規ブックを開き、ＡＬＴ＋Ｆ１１を押してＶＢＥ(Visual Basic Editor)画面を表示させる。
２.ＶＢＥ画面左上にあるVBAProjectと書かれている下のSheet1にマウスをあわせ、ダブルクリックする。
３.下記のコードをＶＢＥ画面右の白い部分にコピー・ペーストする。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.column = 5 then exit sub
Target.offset(1,-4).select

end sub

４.ＡＬＴ＋Ｆ１１でエクセル画面に戻り、適当なデータを入力してみる。

あなた様の思われていることが実現できるはずです。

この回答へのお礼

どうもありがとうございました。
おかげさまで完成いたしました。
今後もよろしくお願いいたしtます

お礼日時：2002/10/11 14:33

No.1 回答者： oneworld 回答日時： 2002/10/09 17:33

F列がアクティブで　かつ　行は65536行（最終行）以下の時に次の行のA列がアクティブになります。

宜しければ、下記をお試し下さい。

Private Sub Worksheet_Change(ByVal Target As Range)

　　If ActiveCell.Column = 6 And ActiveCell.Row < 65536 Then
　　　　Cells(ActiveCell.Row + 1, 1).Select
　　End If

End Sub

この回答へのお礼

どうもありがとうございました。
おかげさまで完成いたしました。
今後もよろしくお願いいたしtます

お礼日時：2002/10/11 14:34