excelVBA　enterキーでセルの移動

Question

下記表の A15～K35 まで入力するにあたって、指定の順番通りにenterキーで移動するマクロを作成したいのですが、調べたコードで色々と試してみてもうまくいきません
どなたか教えてください！

**やりたいこと**
・範囲指定せずに（セルに名前を付けずに）マクロで処理したい
・チェックボックスを作って、マクロを作動させないで入力もしたい
・入力する順番は（A15,F15,G15,H15,J15,A16,F16,G16,H16,J16,……A34,F34,G34,H34,J34,A35,F35,G35,H35,J35)

https://i.gyazo.com/a5f336ab4593e64a4957e3fc858131c0.png

**参考にして試したコード**
https://www.b-space.net/excel-vba-enter-cursormove/

https://oshiete.goo.ne.jp/qa/8689103.html

Answer

入力エリア（A15:J35）のセルのロックを解除した上でシートの保護をして、
EnterではなくTabで移動するのがお手軽な気がしますが。

---
＜追記＞
厳密にはEnterキーで移動ではないけど、こんな手もあるかな。
```VBA
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row < 15 Or Target.Row > 35 Then Exit Sub
    Select Case Target.Column
    Case 1: Target.Offset(, 5).Select
    Case 6, 7: Target.Offset(, 1).Select
    Case 8: Target.Offset(, 2).Select
    Case 10: Target.Offset(1, -9).Select
    Case Else
    End Select
End Sub

```

Answer

> やりたいこと
> ・範囲指定せずに（セルに名前を付けずに）マクロで処理したい
> ・チェックボックスを作って、マクロを作動させないで入力もしたい
> ・入力する順番は（A15,F15,G15,H15,J15,A16,F16,G16,H16,J16,……A34,F34,G34,H34,J34,A35,F35,G35,H35,J35)

チェックボックスでもよいが、トグルボタンでやってみては？
要は、
ある特定の条件の時、横優先で、指定されたセル範囲のみしか選択＆入力ができないように
制御したいということかな？

ならば、入力したいセルは、セルの保護を解除して、シートの保護をしてやればよいので、
こんな感じがたたき台になるかと。

※該当シートのモジュールに貼り付け
```ExcelVBA
Option Explicit

Private Sub ToggleButton1_Click()
    
    If Me.ToggleButton1.Value Then
        Application.MoveAfterReturnDirection = xlDown　’下へ
        Me.Unprotect
    Else
        Application.MoveAfterReturnDirection = xlToRight　’右へ
        Me.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
End Sub
```

※ただし、副作用があるかもしれないので、
運用しながら、不都合なことを回避するよう改変する必要があると思います。
他人に配布して使ってもらえるようにするつもりなら、高度なことをしなければならず、
意外と難易度高いです。