Excel VBA あるセルでENTERを押すと特定のセルへ移動したい - Office系ソフト - 教えて！goo

こんばんは。

これは、定番のコードですが、私は、それに、もう少し工夫を凝らしてみました。
本来は、クラスによるインスタンスが良いとは思いますが、それを一般的にお勧めするには、ちょっと荷が重いような気がしました。

'<標準モジュール>

Private Sub ReturnDirectrion2SelectCell()
　If ActiveCell.Address(0, 0) Like "A2" Then
　 Range("B5").Select
　Else
　　'Original ReturnDirection の再現
　 On Error Resume Next
　 Select Case Application.MoveAfterReturnDirection
　　Case xlDown
　　　　ActiveCell.Offset(1).Select
　　Case xlToRight
　　　　ActiveCell.Offset(, 1).Select
　　Case xlToLeft
　　　　ActiveCell.Offset(, -1).Select
　　Case xlUp
　　　　ActiveCell.Offset(-1).Select
　 End Select
　End If
End Sub

Sub SetKeys()
　　'設定用
　　Application.OnKey "~", "ReturnDirectrion2SelectCell"
　　Application.OnKey "{Enter}", "ReturnDirectrion2SelectCell"
End Sub
Sub SetOffKeys()
　'解除用
　Application.OnKey "~"
　Application.OnKey "{Enter}"
End Sub

'-----------------------------------------

自動設定が必要な場合は、以下のコードを加えてください。

'-----------------------------------------
'<標準モジュール>
Sub Auto_Open()
　Call SetKeys
End If
Sub Auto_Close()
　Call SetOffKeys
End If
'-----------------------------------------

なお、現在の設定では、全てのブックの全てのシートに同じように適用されます。Auto_Open等の代わりに、例えば、Worksheet_Activate や Workbook_SheetActivateなどに、SetKeysをCall し、Worksheet_DeactivateやWorkbook_SheetDeactivateに、SetOffKeysをCallするようにすると良いと思います。

通報する

以下のようにコーディングすればよいのでは

Private blnA2Select As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If blnA2Select Then
Range("b5").Select
Else
End If
If Target.Address = "$A$2" Then
blnA2Select = True
Else
blnA2Select = False
End If
End Sub

【注意】
A2がセレクトされた状態から他のセルをセレクトするとB5が選択されるので、「"A2"を選択されている状態で「ENTER」を押すと"B5"を選択する」という要件から若干外れていますが…
「"A2"からフォーカスが外れると"B5"を選択する(「ENTER」に限らず)」
如何でしょう？

通報する