エクセルでＡ１からＡ１０まで入力したあと、Ｂ１に戻って同じように入力していける方法を教えてください

質問

タイトルのとおりです

Ａ１から入力を初めて、Ａ１０で一つのデータ入力を終了させて、次にＢ１に自動的に戻り、Ｂ１０まで入力して、さらにＣ１に戻り・・・

と、いう作業をしたいのですが、
どのようにしたらいいのでしょぅか？

回答No.2

poohron · ベストアンサー

＞Ａ１の次はＢ１になりますよね

「ツール」→「オプション」→「編集」→「入力後にセルを移動する」の「方向」を「右」にすれば
Ａ１の次がＡ２になります。
あとは#1さんの方法で・・・。

また、ちょっと面倒な方法ですが
Ａ１～Ａ１０をドラッグ後、Ctrlキーを押しながらＢ１～Ｂ１０をドラッグ、
続いてＣ１～Ｃ１０をドラッグ、Ｄ１～Ｄ１０・・・とすると
移動方向を右に設定しなくてもＡ１～Ａ１０→Ｂ１～Ｂ１０→・・・と
移動させることが出来ます。

回答No.4

KenKen_SP

こんにちは。KenKen_SP です。

> 入力するとセルの移動は、Ａ１の次はＢ１になりますよね。
> そうなるとデータ入力の順番上、困るのです。

これは、カーソルの移動方向で決まります。
[ツール]-[オプション]-[編集]タブから[入力後にセルを移動する]
で指定します。

その上で、下記のマクロをお試し下さい。

Sub 入力範囲を制限()

　　Dim strAddress As String
　　Dim rngTarget　As Range

　　ActiveSheet.ScrollArea = ""
　　On Error Resume Next
　　Set rngTarget = Application.InputBox( _
　　　　Prompt:="範囲をマウスで選択して下さい" & vbCrLf & vbCrLf _
　　　　　　& "　・最初の選択範囲以外は無視されます" & vbCrLf _
　　　　　　& "　・この制限を解除するには「キャンセル」をクリック", _
　　　　Title:="カーソルの移動範囲を制限します", _
　　　　Type:=8)
　　If rngTarget Is Nothing Then
　　　　Set rngTarget = Nothing
　　　　Exit Sub
　　End If

　　On Error GoTo 0
　　strAddress = rngTarget.Address
　　If InStr(1, strAddress, ",") > 0 Then
　　　　strAddress = Left$(strAddress, InStr(1, strAddress, ",") - 1)
　　End If
　　Set rngTarget = Nothing
　　ActiveSheet.ScrollArea = strAddress

End Sub

お礼

皆様、ご回答ありがとうございました。

この場をお借りしてお礼申し上げます。

回答No.3

gogotam

こんばんは。

#1の方のご説明プラス「入力後のセル移動の設定」をされてみてはいかがでしょうか。
エクセルの「ツール」→「オプション」→「入力後にセル移動をする」にチェック→「下」に設定。
そうすると、Enterキーで下へ移動することができます。

私のは２００３なのでバージョンが違うと若干設定も変わるかもしれません。
一度ご確認くださいませ。

回答No.1

anaguma99

簡単な方法としては、
データを入力する区域をマウスドラッグで反転させておいて
その後入力していけば、そのようにできます。

お礼

ご回答ありがとうございました

はい。それは知っていますが、
仮にＡ１からＥ１０までドラッグしておき、
入力するとセルの移動は、Ａ１の次はＢ１になりますよね。
そうなるとデータ入力の順番上、困るのです。