VBA经典应用69例应用5：使用VBA冻结窗格
《VBA经典应用69例》（版权10178981），是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容：VBA经典应用69例应用5：使用VBA冻结窗格
【分享成果，随喜正能量】生活中，你面对这个世界并不是射出了一支箭，而是你面对了一堵墙。所以说感谢这一切，经过、遇见、曲折和磨砺，不要再给自己树立那些推不倒的墙。。
应用5 利用VBA完成工作表窗格的冻结及拆分
这个专题的应用仍是非常有实际意义的，内容是利用VBA来完成我们平时工作中的一些基本操作：工作表窗口的冻结及拆分。
Excel工作表操作中窗口的冻结和拆分是一个非常方便的功能，我们这讲将研究如何在 Excel中利用VBA准确使用冻结窗口功能。
2 使用VBA冻结窗格
在上面的讲解中，我介绍了在Excel中操作窗口的部分，在VBA代码中，如果要冻结窗格该如何操作呢？我们只需根据要冻结的范围进行选择，选择可以是行或者列也可以是单元格，然后使用FreeePanes = True，即可。下面我将通过一些实例给大家讲解。这里的FreeePanes是Window对象的FreezePanes属性，下面我们来详细讲解一下这个属性。
Window对象的FreezePanes属性：ActiveWindow.FreezePanes，如果拆分窗格被冻结，则该属性值为 True。读/写 Boolean。
语法：expression.FreezePanes
其中expression为一个代表Window对象的变量。
- FreezePanes可能为True, 并且Split为False, 反之亦然。
- 该属性仅应用于工作表和宏工作表。
实例一：以工作表第5行为基准进行窗格冻结
在上面的Excel操作讲解中，我曾经讲到按行的窗格冻结，下面的代码将以当前工作表的第五行为基准进行冻结。代码：
Sub mynzA()
‘首先，确保没有使用窗口冻结操作
ActiveWindow.FreezePanes = False
‘基于行的冻
Rows(“5:5”).Select
‘冻结窗口
ActiveWindow.FreezePanes = True
End Sub
代码截图：
代码讲解：代码非常的简单，先确保当前窗口没有使用窗口的冻结操作，然后选择基准行，最后冻结窗格。
代码的运行效果：
实例二：以工作表E列为基准进行窗格冻结
第二个应用是以当前工作表的E列为基准进行冻结。代码：
Sub mynzB()
‘首先，确保没有使用窗格冻结操作
ActiveWindow.FreezePanes = False
‘基于列的冻结
Columns(“E”).Select
‘冻结窗口
ActiveWindow.FreezePanes = True
End Sub
代码截图：
代码的解读：
Columns(“E”).Select 是先选择锁定列的基准，最后锁定。
代码的运行效果：
实例三：同时锁定工作表行、列的窗格冻结
第三个应用是以当前工作表的“E5”单元格为基准进行冻结。代码：
Sub mynzC()
‘首先，确保没有使用窗格冻结操作
ActiveWindow.FreezePanes = False
‘基于单元格的冻结
Range(“E5”).Select
‘冻结窗口
ActiveWindow.FreezePanes = True
End Sub
代码截图：
代码解读：
Range(“E5”).Select 这句代码是指定了冻结窗格的基准为“E5”单元格。
代码的运行效果：
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
