使用VBA代码,可以很方便的冻结Excel的窗口。
下面,贴出常用的代码,以方便您的操作。
①代码
Sub Freeze()
ActiveWindow.FreezePanes = Not ActiveWindow.FreezePanes
End Sub
'代码功能是,点击一下该过程,就冻结;再点击一次,就取消冻结。是一种循环冻结或取消的代码。
②代码
Activwindow.FreezePanes=true
'代码功能是:冻结Excel窗口;如果要取消,就必须使用菜单的操作,才能取消。
③代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveWindow.SplitRow = 2 And ActiveWindow.SplitColumn = 1 Then Exit Sub
ActiveWindow.SplitRow = 2
ActiveWindow.SplitColumn = 1
ActiveWindow.FreezePanes = True
End Sub
代码说明:
ActiveWindow.SplitRow = 2 表示冻结第二行
ActiveWindow.SplitColumn = 1 表示冻结第一列
由于上述代码使用的是ActiveWindow.FreezePanes = True,所以,要想取消窗口的冻结,就要使用菜单操作。