|
他の掲示板で見つけたのですがEnterで移動させたいのですが
よろしくお願いします。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If InStr("DY14,DV54,DV56,DV58,DV60", Target.Cells(1).Address(0, 0)) > 0 Then
Application.OnKey "{ENTER}", ActiveSheet.CodeName & ".JmpCell"
Application.OnKey "~", ActiveSheet.CodeName & ".JmpCell"
Else
Application.OnKey "{ENTER}"
Application.OnKey "~"
End If
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "{ENTER}"
Application.OnKey "~"
End Sub
Private Sub JmpCell()
Application.EnableEvents = False
Select Case Selection.Cells(1).Address(0, 0)
Case "DY14"
Range("DV54").Activate
Case "DV54"
Range("EG54").Activate
Case "DV56"
Range("EG56").Activate
Case "DV58"
Range("EG58").Activate
Case "DV60"
Range("EG60").Activate
End Select
Application.EnableEvents = True
End Sub
◎ ThisWorkbook のモジュールに記述。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{ENTER}"
Application.OnKey "~"
End Sub
ここまで参考コードです。
下記のコードのセルに移動するのは入力すれば移動してくれるのですが
セル入力しない場合でもEnterだけでも移動できるようにしたいと考えてます
上記の案はセルからセルですが下記のコードと組み合わせることできませんか。
あまり難しいコードは解りませんので投稿させていただきました。
よろしくお願いします。
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 4
Target.Offset(0, 2).Select
Case 6
Target.Offset(0, 2).Select
Case 11: Target.Offset(1, -8).Activate
End Select
End Sub
|
|