回答編集履歴
1
追記
answer
CHANGED
|
@@ -1,2 +1,19 @@
|
|
|
1
1
|
入力エリア（A15:J35）のセルのロックを解除した上でシートの保護をして、
|
|
2
|
-
EnterではなくTabで移動するのがお手軽な気がしますが。
|
|
2
|
+
EnterではなくTabで移動するのがお手軽な気がしますが。
|
|
3
|
+
|
|
4
|
+
---
|
|
5
|
+
＜追記＞
|
|
6
|
+
厳密にはEnterキーで移動ではないけど、こんな手もあるかな。
|
|
7
|
+
```VBA
|
|
8
|
+
Private Sub Worksheet_Change(ByVal Target As Range)
|
|
9
|
+
If Target.Row < 15 Or Target.Row > 35 Then Exit Sub
|
|
10
|
+
Select Case Target.Column
|
|
11
|
+
Case 1: Target.Offset(, 5).Select
|
|
12
|
+
Case 6, 7: Target.Offset(, 1).Select
|
|
13
|
+
Case 8: Target.Offset(, 2).Select
|
|
14
|
+
Case 10: Target.Offset(1, -9).Select
|
|
15
|
+
Case Else
|
|
16
|
+
End Select
|
|
17
|
+
End Sub
|
|
18
|
+
|
|
19
|
+
```
|