|
▼ぴかる さん:
これをコピペして実行し、何が足りないのかを
詳しく発言してください。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim currentCell As Range
Set currentCell = ActiveCell
If (Target.Row > 15) Then
With ActiveWindow
.ScrollRow = currentCell.Row - 15
End With
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
With Target
If .Row = 45 Then
Cells(58, .Column).Select
ElseIf .Row = 58 And Cells(46, .Column).Value = "" Then
Cells(47, .Column).Select
ElseIf .Row = 57 Then
Cells(46, .Column).Select
ElseIf .Row = 46 Then
Cells(59, .Column).Select
End If
End With
Application.ScreenUpdating = True
End Sub
|
|