根据点选单元格自动设定冻结窗格位置

部分时候需要表格中的不同部分内容实现滚动，而另一部分不动，并且会根据需要自动调整滚动和固定的位置，下面的代码可以实现点选不同的行时，实现不同的滚动范围，有兴趣的可以进行试用，并根据自己的需求，调整其中固定/滚动的位置。

函数代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Application.EnableEvents = False
'Application.ScreenUpdating = False
If Target.Row < 8 Then
    Set rng = Target
    ActiveWindow.FreezePanes = False