在vba中使用FreezePanes冻结Excel窗口的代码

awxgaige

使用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，所以，要想取消窗口的冻结，就要使用菜单操作

applekay

进来学习一下,谢谢版主分享