教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容是教程的应用5：VBA冻结及拆分工作表实例操作。Excel工作表操作中窗口的冻结和拆分是一个非常方便的功能，我们这讲将研究如何在Excel中利用VBA准确使用冻结窗口功能。代码的运行效果：实例三：同时锁定工作表行、列的窗格冻结第三个应用是以当前工作表的“E5”单元格为基准进行冻结。该属性仅应用于工作表和宏工作表。
【分享成果，随喜正能量】福虎迎春，祝所有的朋友虎年大吉，喜乐安康。我们身边有许多良善、智慧和好心肠的朋友，他们就是一处处美丽的风景，滋养着我们的心灵、带给我们安全和自由的栖息之地。
原预计春节期间停几期发文，但有一个平台的公告没有发出，很多朋友在问：“老师，怎么没有发文？春节期间正好充电。”为了满足大家的要求，各平台发文继续，也是鼓励春节期间充电的朋友。我经常给大家的一句话：VBA非常强大、实用，而且入门简单，学，总会有收获；不学，永远在门外徘徊。
《VBA经典应用69例》，是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容是教程的应用5：VBA冻结及拆分工作表实例操作。
应用5 利用VBA完成工作表窗格的冻结及拆分这个专题的应用仍是非常有实际意义的，内容是利用VBA来完成我们平时工作中的一些基本操作：工作表窗口的冻结及拆分。
Excel工作表操作中窗口的冻结和拆分是一个非常方便的功能，我们这讲将研究如何在 Excel中利用VBA准确使用冻结窗口功能。
(接上讲)
实例一：以工作表第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”单元格。
代码的运行效果：
3 使用VBA拆分窗格我们接下来看利用VBA如何对窗格进行拆分。在拆分单元格时利用的是Window.Split等一些属性，我们先来介绍一下这些属性。
① Window.Split属性：如果指定窗口被拆分，则该属性值为 True。读/写 Boolean。
语法：expression.Split
其中expression为一个代表Window对象的变量。
- 该属性仅应用于工作表和宏工作表。
② Window.SplitColumn属性：返回或设置将指定窗口拆分成窗格处的列号（拆分线左侧的列数）。 读/写 Long。
语法：expression.SplitColumn
其中expression为一个代表Window对象的变量。
示例：ActiveWindow.SplitColumn = 1.5 表示拆分线左侧留有 1.5 个列宽。
③ Window.SplitRow 属性：返回或设置将指定窗口拆分成窗格处的行号（拆分线以上的行数）。 读/写 Long。
语法：expression.SplitRow
其中expression为一个代表Window对象的变量。
示例：ActiveWindow.SplitRow = 10 表示拆分线以上有 10 行。
本讲内容参考程序文件：应用005.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】这世界取易舍难，欲望从来都不是幸福的定义。人生百年，你所需要的少之又少，身心平安，永远是那些知足的人。
