マクロでやりたい事があります。

質問

A1 B1 C1 D1 E1
A2 B2 C2 D2 E2
A3 B3 C3 D3 E3

A5 B5 C5 D5 E5
A6 B6 C6 D6 E6

上記のような状態で、
A3でENTERを押すとB1に移動する。
B3でENTERを押すとC1に移動する。
E3でENTERを押すとA5に移動する。

というような作業をE5に移動するまで繰り返したいのです。

どなたかご教授いただけませんでしょうか？

回答No.4

nag0720 · ベストアンサー

どうしても「ENTERを押したとき」と言うのであれば、Application.OnKeyメソッドを使えば可能です。

回答No.3

ae-1sp

NO2です。書き忘れ。

貼り付けるのは各シートです。
Microsoft Excel Objects のSheet1とか成っているところに貼り付けます。

回答No.2

ae-1sp

セルの値が変更された場合ならこんな感じ

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Column
Case 1　’Aの列の意味
If Target.Row = 3 Then　’3行目の意味
Range("B1").Select　’A3が変更されるとB1へ移動
End If

If Target.Row = 6 Then　’6行目の意味
Range("B5").Select　’A6が変更されるとB5へ移動
End If
Case 2　’Ｂの列の意味
　以下同じ命令を入れる。
End Select

End Sub

冒頭のcangeをBeforeRightClickにするとセルを右クリックすると同じ事が実行されます。

回答No.1

kamikami30

マクロではありませんが、

Ctrl+矢印キーで、素敵な気持ちになれるかもしれません。