Excel VBA Enterキーによるセル移動

質問

ExcelVBAでEnterキーを押したら目的のセルに移動させたいのですがわかりません。例えばB4→C5→E7→B4と言った具合に移動させたいのですが。御教授下さい。よろしくお願いいたします。

回答No.1

sam_inoue · ベストアンサー

シートにはKeyDown,KeyPressといったイベントがないので
自由自在にコントロールするのは不可能です。
ただ、ご希望に近いことは可能だと思います。
方法としてはセルロックとシート保護に
選択セルの許可を加えて設定しますが、
この「選択セルの許可(EnableSelection)」は
閉じた後は無効になるので、
開く都度、下記のようなマクロを実行する必要があります。
Sub TEST()
Dim SH As Worksheet
Set SH = ActiveSheet
With SH
.Unprotect
.Cells.Locked = True
.Range("B4,C5,E7").Locked = False
.EnableSelection = xlUnlockedCells
.Protect
End With
End Sub

お礼

ありがとうございます。おかげさまで、自分の望みどうりの操作ができるようになりました。とても感謝しています。有難うございました。