changeイベントで相対移動

質問

B列の任意のセルに入力しEnter、カーソルが、その行の右３列目(E列)に移動、そのセルに入力しEnter、その行の右２列目(G列)に移動、
そのセルに入力しEnter、最初のB列の任意のセルの下にカーソル移動。
これの記述を教えてください。よろしくお願いします。

回答No.1

suz83238 · ベストアンサー

シートモジュールに下記を

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Cells(Target.Row, 5).Select
If Target.Column = 5 Then Cells(Target.Row, 7).Select
If Target.Column = 7 Then Cells(Target.Row + 1, 2).Select
End Sub

お礼

ありがとうございました、大変助かりました。

回答No.2

imogasi

私の好みのスタイルですが、
列数の拡張は、テーブル方式であるので容易という売り。
Ｓｈｅｅｔ１などのシートモジュールのＣｈｅｎｇｅイベントで
Private Sub Worksheet_Change(ByVal Target As Range)
p = Array(2, 5, 7, 2)
c = Target.Column
r = Target.Row
For i = 0 To UBound(p)
If c = p(i) Then
Cells(r, p(i + 1)).Select
Exit For
End If
Next i
If c = 7 Then ActiveCell.Offset(1, 0).Select
End Sub

お礼

ありがとうございました。
タイムずれがあったようです。締め切り後に見ることができました。
ポイントをあげられずすみません。今後ともよろしくお願いします。