根据点选单元格位置,自动设定冻结窗格位置
部分时候需要表格中的不同部分内容实现滚动,而另一部分不动,并且会根据需要自动调整滚动和固定的位置,下面的代码可以实现点选不同的行时,实现不同的滚动范围,有兴趣的可以进行试用,并根据自己的需求,调整其中固定/滚动的位置。
函数代码
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。
——转载请注明出处!
扫码加微信