Enterキーで順番にセルの移動する。

質問

Excel2013

Enterキーを押すと隣りのセルに移動ではなく、次に入力したいセルにカーソルが移動するようにしたいです。

たとえば、
必要事項を入力する書類で、B2のセルに入力したら次はD5のセルに入力、次はA6に入力といった書類あり、Enterキーを押して次の入力セルに移動するようにしたい。また、書類の書式を崩されたくないのでシート保護して使いたいです。
Enterで進み、戻る時はUPキーか、↑キーなどで設定したいと考えてます。

どなたか、VBで教えてくださる方お願いします。

回答No.5

nishi6 · ベストアンサー

以下の要件で作ってみました。（当方、Excel2010です）

・入力順の制御をするセルの個数は制限しない。
・制御するセル番地をプログラム内に入れない。
・制御するセルを登録しやすくする。
・結合セルも可とする。

・基本的な移動順は上から下、左から右とする。（戻るときに必要）
・セルを移動するキー
　　Enterキー、４つの方向キー、Tabキー、Shife+Tabキー
　　セルを移動させたキーよりも移動後のセルで制御する
　　方向キーの右、下はEnterキー、Tabキーと同じ
　　方向キーの左、上はShift+Tabキー

・シートの保護・非保護には依存しないようにする。
・入力順の制御のオンオフを可能にする。

●最初に入力順の制御を行うシートで、開発タブ＞挿入＞フォームコントロールでチェックボックスを1つシート上に配置し、右クリック＞コントトールの書式設定＞コントロールタブ＞リンクするセルを「$H$1」にして、チェックボックスはオフにしてください。マクロが「$H$1」になっているからです。後で修正してください。

入力用のマクロが動き出すと修正ができなくなるので、このチェックボックスのオン・オフでマクロを制御します。

●下記のマクロをシートのコードウィンドウに貼り付け、最初の行の「AdrJump」の右に動かすセルを「,」で区切って順に記入します。結合セルの場合はその左上のセル番地になります。数の制限はありませんがほどほどに。この登録データで環状リストを作ります。

●最初の時点は、編集した後、チェックボックスをオンにしてマクロを実行するとエラーが起きる可能性があります。VBE画面でマクロを中断し、「setEnableEvents」を実行してください。以降、エラーは起きないはずです。

●今のマクロは添付図での入力用の設定になっています。

シートのコードウィンドウに貼り付けます。

'□□□　入力セルを順に書く　□□□
Const AdrJump As String = "C2,C4,C5,F5,D7,D8,D10"

Dim Jmp1() As String　　'飛び先のセル（今）
Dim Jmp2() As String　　'飛び先のセル（前）
Dim DownUp As Integer '戻るか進むか（1:戻る、2:進む）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Range("H1") = False Then Exit Sub

　　Application.EnableEvents = False
　　Jmp1 = Split(getAdr(Target), ",")
　　If Jmp1(0) = "" Then
　　　　'前に進むか戻るかを判定
　　　　DownUp = 1 - (Range(Jmp2(0)).Row < Target.Row Or _
　　　　　　　　　　 Range(Jmp2(0)).Column < Target.Column)

　　　　Jmp1 = Split(getAdr(Range(Jmp2(DownUp))), ",")
　　　　Range(Jmp2(DownUp)).Select: Jmp2 = Jmp1
　　Else
　　　　Jmp1 = Split(getAdr(Range(Jmp1(0))), ","): Jmp2 = Jmp1
　　End If
　　Application.EnableEvents = True
End Sub

'選択セル(結合セルも可)によってどこに移動するか候補を決める
Function getAdr(Tgt As Range) As String
　　Dim wk() As String, i As Integer

　　wk = Split("," & AdrJump & ",", ",")
　　wk(0) = wk(UBound(wk) - 1) '環状リスト（最初）
　　wk(UBound(wk)) = wk(1)　　 '環状リスト（最後）

　　getAdr = ",,"
　　For i = 1 To UBound(wk) - 1
　　　　If Tgt.Range("A1").Address(0, 0) = wk(i) Then
　　　　　　getAdr = wk(i) & "," & wk(i - 1) & "," & wk(i + 1)
　　　　　　Exit For
　　　　End If
　　Next
End Function

'最初、編集時エラーが発生したらこのプロシージャを実行する
Sub setEnableEvents()
　　Erase Jmp1
　　Erase Jmp2
　　Application.EnableEvents = True
End Sub

お礼

nishi6さん、ありがとうございます。

チェックボックスを図のように配置してやってみました。

上手く動きました！

まさしく私が作りたかったものとそっくりの例でした。

ただ、私以上にExcel、パソコンそのものに不慣れな者たちが扱うので、チェックボックスではなくボタンもしくはシートが開いたら動くようにした方がいいかもしれないと思いました。

その場合はどのようにコードを編集したらよいですか？

重ね重ねすいません。ご教授お願いします。

補足

お礼のフォームが無いので、補足入力フォームから重ねてお礼を申し上げます。

シート保護の設定で
"ロックされたセル範囲の選択"にもチェックを入れて試したところ、ロックされてないセルへ瞬時に戻るので仮に関数などが設定されているセルを選択されても編集されずに利用できるので、このまま利用させていただきたいと思います。

nishi6さん、どうもありがとうございました。