vba 锁定工作表位置（VBA冻结及拆分工作表实例操作）

【分享成果，随喜正能量】福虎迎春，祝所有的朋友虎年大吉，喜乐安康。我们身边有许多良善、智慧和好心肠的朋友，他们就是一处处美丽的风景，滋养着我们的心灵、带给我们安全和自由的栖息之地。

原预计春节期间停几期发文，但有一个平台的公告没有发出，很多朋友在问：“老师，怎么没有发文？春节期间正好充电。”为了满足大家的要求，各平台发文继续，也是鼓励春节期间充电的朋友。我经常给大家的一句话：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实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】这世界取易舍难，欲望从来都不是幸福的定义。人生百年，你所需要的少之又少，身心平安，永远是那些知足的人。

,