入力時の自動スクロール

大量のデータを打ち込んでいて、ウィンドウの一番下まで行ってしまうとかなり見難くなりません？

私はなります。

どうせなら、入力セルは見やすい位置にずっていてくれたほうが助かります。

なので、自動でスクロールして選択セルは定位置にするマクロが必要です。

WorksheetのSelectionChangeイベントに書いていきます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Scrl As Long
Dim i As Long

Application.ScreenUpdating = False 'スクロールの際のチラツキ？防止の為

For i = 0 To 94 '100行目まで

Scrl = 6 + i

If Target.Row > Scrl Then '6行目を超えたら

ActiveWindow.ScrollRow = Scrl - 5 '1行スクロール=定位置

End If
Next i

End Sub

これだけだとあまり役に立たないので、他のマクロと組み合わせます。

まあ、こんな感じ。