• ベストアンサー

changeイベントで相対移動

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

質問者が選んだベストアンサー

  • ベストアンサー
  • suz83238
  • ベストアンサー率30% (197/656)
回答No.1

シートモジュールに下記を 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

hoshi7777
質問者

お礼

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

その他の回答 (1)

  • imogasi
  • ベストアンサー率27% (4737/17069)
回答No.2

私の好みのスタイルですが、 列数の拡張は、テーブル方式であるので容易という売り。 Sheet1などのシートモジュールのChengeイベントで 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

hoshi7777
質問者

お礼

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

関連するQ&A

専門家に質問してみよう