|
▼Kein さん:
またまた修正ありがとうございます。
1sheetの件ですが今後また何かのsheetを作成する場合簡単な修正で
できればなとのおもいでお聞きしました。
今回のシートは先にもお願いしたように2sheetあります。
>私の最初の回答と
>次の Sub JmpCell() を修正した回答の組み合わせでオッケーなのでは ?
下記の私が付け足したものということですか?
Private Sub Worksheet_Activate()
With Application
.OnKey "{ENTER}", ActiveSheet.CodeName & ".JmpCell"
.OnKey "~", ActiveSheet.CodeName & ".JmpCell"
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.OnKey "{ENTER}"
.OnKey "~"
End With
End Sub
Private Sub JmpCell()
If TypeName(Selection) <> "Range" Then Exit Sub
With ActiveCell
Select Case .Column
Case 3: .Offset(, 1).Select '★追加
Case 4, 6: .Offset(, 2).Select
Case 8: .Offset(, 1).Select '★追加
Case 9: .Offset(, 1).Select '★追加
Case 10: .Offset(, 1).Select '★追加
Case 11: .Offset(1, -8).Select
Case 129
If .Row = 14 Then
.Offset(40, -3).Select
Else
.Offset(1).Select
End If
Case 126
Select Case .Row
Case 54, 56, 58, 60: .Offset(, 11).Select
Case Else: .Offset(1).Select
End Select
Case Else: .Offset(1).Select
End Select
End With
End Sub
◎ ThisWorkbook のモジュールに記述。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.OnKey "{ENTER}"
.OnKey "~"
End With
End Sub
|
|