|
いつも参考にさせていただいています。
勤務表の確認のために下記のように組んでみました。
セルに"1510"のように入力すると"15:10"と表示され、Select Case のところで次のセルにとびます。
ところが、数値入力せずに Enter のみの場合は、右へ右へと進むだけです。
Enter のみの場合でも 指定のセルにとぶようにするにはどうすればよいのでしょうか。よろしくお願いいたします。
Private Sub workbook_sheetChange(ByVal Sh As Object, ByVal Target As Range)
'
If Intersect(Target, Range("c8:d38")) Is Nothing Then
If Intersect(Target, Range("f8:g38")) Is Nothing Then
If Intersect(Target, Range("n8:o38")) Is Nothing Then
If Intersect(Target, Range("q8:r38")) Is Nothing Then
Exit Sub
End If
End If
End If
End If
'
Application.EnableEvents = False
Target.Value = Format(Target.Value, "")
Target.Value = Format(Target.Value, "00:00")
On Error GoTo 0
Dim w_column As Integer
Dim w_row As Integer
w_column = Range(Target.Address).Column
w_row = Range(Target.Address).Row
Select Case w_column
Case 3, 6
Cells(w_row, w_column + 1).Select
Case 4
Cells(w_row, w_column + 2).Select
Case 5
Cells(w_row, 6).Select
Case 7, 8
Cells(w_row + 1, 3).Select
Case 14, 17
Cells(w_row, w_column + 1).Select
Case 15
Cells(w_row, w_column + 2).Select
Case 16
Cells(w_row, 17).Select
Case 18, 19
Cells(w_row + 1, 14).Select
End Select
'
Application.EnableEvents = True
End Sub
|
|