导读【分享成果，随喜正能量】内心有了杂草，就无法专注于当下，杂草因何而来，是你看的太重，较真了而已。其实一切在自身所发生的事，都是自渡，过往的人生经历，最终只关....

【分享成果，随喜正能量】内心有了杂草，就无法专注于当下，杂草因何而来，是你看的太重，较真了而已。其实一切在自身所发生的事，都是自渡，过往的人生经历，最终只关乎你自己，关乎于你的内心，心若澄澈，世界就干净，你若简单，世界就难以复杂。内心若是杂草丛生，外面的风景，便总是带着黑白，习惯去给事情划上非此即彼的界限，其实哪有这么复杂，少一些计较，只要自己活的开心，简简单单就好。

《VBA经典应用69例》，是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容是教程的应用5：利用VBA完成工作表窗格的冻结及拆分。

这个专题的应用仍是非常有实际意义的，内容是利用VBA来完成我们平时工作中的一些基本操作：工作表窗口的冻结及拆分。

Excel工作表操作中窗口的冻结和拆分是一个非常方便的功能，我们这讲将研究如何在 Excel中利用VBA准确使用冻结窗口功能。

1 Excel中窗口冻结及拆分的操作

① 冻结Excel中的行

如果想要冻结一行或多行，这意味着能够在向下滚动时保持它们可见，请做以下工作：

a 选择要冻结的行的最后一行下方的整个行。

b 转到"视图"-"冻结窗格"–"冻结窗格"

或者，如果只想要冻结工作表的第一行，则可以选择"冻结首行"，即可。

② 冻结Excel中的列

类似地，如果在操作Excel中，想要冻结列，也可以应用相同的方法，从而在向右滚动时使它们保持可见。

当然，如果只想要冻结第一列，则可以使用"冻结首列"。

③ 同时冻结行和列

如果需要同时冻结行和列，则可以选择单个单元格，其中想要冻结的行位于该行上方，而要冻结的列位于其下方。换句话说，所选单元格左上角的单元格将保持冻结状态。

④ 在Excel中拆分窗口

在Excel操作中，除了冷结窗口外，还可以拆分窗口。点击视图菜单下面的拆分即可，此时的窗口会出现下面的示例：

2 使用VBA冻结窗格

在上面的讲解中，我介绍了在Excel中操作窗口的部分，在VBA代码中，如果要冻结窗格该如何操作呢？我们只需根据要冻结的范围进行选择，选择可以是行或者列也可以是单元格，然后使用FreeePanes = True，即可。下面我将通过一些实例给大家讲解。这里的FreeePanes是Window对象的FreezePanes属性，下面我们来详细讲解一下这个属性。

Window对象的FreezePanes属性：ActiveWindow.FreezePanes，如果拆分窗格被冻结，则该属性值为 True。读/写 Boolean。

语法：expression.FreezePanes

其中expression为一个代表Window对象的变量。

• FreezePanes可能为True, 并且Split为False, 反之亦然。
• 该属性仅应用于工作表和宏工作表。

本讲内容参考程序文件：应用005.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】一切在自身所发生的事，都是自渡，过往的人生经历，最终只关乎你自己，关乎于你的内心，心若澄澈，世界就干净，你若简单，世界就难以复杂。