根据点选单元格位置，自动设定冻结窗格位置
部分时候需要表格中的不同部分内容实现滚动，而另一部分不动，并且会根据需要自动调整滚动和固定的位置，下面的代码可以实现点选不同的行时，实现不同的滚动范围，有兴趣的可以进行试用，并根据自己的需求，调整其中固定/滚动的位置。
函数代码
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
Range("A2").Select
ActiveWindow.FreezePanes = True
rng.Select
Else
ActiveWindow.FreezePanes = False
Range("A12").Select
ActiveWindow.FreezePanes = True
End If
'Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
——专注办公软件的二次开发及培训，你有问题，我有思路！
——微博、微信、CSDN同号：w_dexu。
——转载请注明出处！
扫码加微信