導(dǎo)讀【分享成果，隨喜正能量】福虎迎春，祝所有的朋友虎年大吉，喜樂安康。我們身邊有許多良善、智慧和好心腸的朋友，他們就是一處處美麗的風(fēng)景，滋養(yǎng)著我們的心靈、帶給我....

【分享成果，隨喜正能量】福虎迎春，祝所有的朋友虎年大吉，喜樂安康。我們身邊有許多良善、智慧和好心腸的朋友，他們就是一處處美麗的風(fēng)景，滋養(yǎng)著我們的心靈、帶給我們安全和自由的棲息之地。

原預(yù)計(jì)春節(jié)期間停幾期發(fā)文，但有一個(gè)平臺(tái)的公告沒有發(fā)出，很多朋友在問：“老師，怎么沒有發(fā)文？春節(jié)期間正好充電。”為了滿足大家的要求，各平臺(tái)發(fā)文繼續(xù)，也是鼓勵(lì)春節(jié)期間充電的朋友。我經(jīng)常給大家的一句話：VBA非常強(qiáng)大、實(shí)用，而且入門簡(jiǎn)單，學(xué)，總會(huì)有收獲；不學(xué)，永遠(yuǎn)在門外徘徊。

《VBA經(jīng)典應(yīng)用69例》，是我推出的第九套教程，教程是專門針對(duì)初級(jí)、中級(jí)學(xué)員在學(xué)習(xí)VBA過程中可能遇到的案例展開，這套教程案例眾多，緊貼“實(shí)戰(zhàn)”，并做“戰(zhàn)術(shù)總結(jié)”，以便大家能很好的應(yīng)用。教程的目的是要求大家在實(shí)際工作中要利用好VBA。本套教程共三冊(cè)六十九個(gè)專題，今日內(nèi)容是教程的應(yīng)用5：VBA凍結(jié)及拆分工作表實(shí)例操作。

應(yīng)用5 利用VBA完成工作表窗格的凍結(jié)及拆分

這個(gè)專題的應(yīng)用仍是非常有實(shí)際意義的，內(nèi)容是利用VBA來完成我們平時(shí)工作中的一些基本操作：工作表窗口的凍結(jié)及拆分。

Excel工作表操作中窗口的凍結(jié)和拆分是一個(gè)非常方便的功能，我們這講將研究如何在 Excel中利用VBA準(zhǔn)確使用凍結(jié)窗口功能。

(接上講)

實(shí)例一：以工作表第5行為基準(zhǔn)進(jìn)行窗格凍結(jié)

在上面的Excel操作講解中，我曾經(jīng)講到按行的窗格凍結(jié)，下面的代碼將以當(dāng)前工作表的第五行為基準(zhǔn)進(jìn)行凍結(jié)。代碼：

Sub mynzA()

首先，確保沒有使用窗口凍結(jié)操作

ActiveWindow.FreezePanes = False

基于行的凍

Rows("5:5").Select

凍結(jié)窗口

ActiveWindow.FreezePanes = True

End Sub

代碼截圖：

代碼講解：代碼非常的簡(jiǎn)單，先確保當(dāng)前窗口沒有使用窗口的凍結(jié)操作，然后選擇基準(zhǔn)行，最后凍結(jié)窗格。

代碼的運(yùn)行效果：

實(shí)例二：以工作表E列為基準(zhǔn)進(jìn)行窗格凍結(jié)

第二個(gè)應(yīng)用是以當(dāng)前工作表的E列為基準(zhǔn)進(jìn)行凍結(jié)。代碼：

Sub mynzB()

首先，確保沒有使用窗格凍結(jié)操作

ActiveWindow.FreezePanes = False

基于列的凍結(jié)

Columns("E").Select

凍結(jié)窗口

ActiveWindow.FreezePanes = True

End Sub

代碼截圖：

代碼的解讀：

Columns("E").Select 是先選擇鎖定列的基準(zhǔn)，最后鎖定。

代碼的運(yùn)行效果：

實(shí)例三：同時(shí)鎖定工作表行、列的窗格凍結(jié)

第三個(gè)應(yīng)用是以當(dāng)前工作表的“E5”單元格為基準(zhǔn)進(jìn)行凍結(jié)。代碼：

Sub mynzC()

首先，確保沒有使用窗格凍結(jié)操作

ActiveWindow.FreezePanes = False

基于單元格的凍結(jié)

Range("E5").Select

凍結(jié)窗口

ActiveWindow.FreezePanes = True

End Sub

代碼截圖：

代碼解讀：

Range("E5").Select 這句代碼是指定了凍結(jié)窗格的基準(zhǔn)為“E5”單元格。

代碼的運(yùn)行效果：

3 使用VBA拆分窗格

我們接下來看利用VBA如何對(duì)窗格進(jìn)行拆分。在拆分單元格時(shí)利用的是Window.Split等一些屬性，我們先來介紹一下這些屬性。

① Window.Split屬性：如果指定窗口被拆分，則該屬性值為 True。讀/寫 Boolean。

語法：expression.Split

其中expression為一個(gè)代表Window對(duì)象的變量。

• 該屬性僅應(yīng)用于工作表和宏工作表。

② Window.SplitColumn屬性：返回或設(shè)置將指定窗口拆分成窗格處的列號(hào)（拆分線左側(cè)的列數(shù)）。 讀/寫 Long。

語法：expression.SplitColumn

其中expression為一個(gè)代表Window對(duì)象的變量。

示例：ActiveWindow.SplitColumn = 1.5 表示拆分線左側(cè)留有 1.5 個(gè)列寬。

③ Window.SplitRow 屬性：返回或設(shè)置將指定窗口拆分成窗格處的行號(hào)（拆分線以上的行數(shù)）。 讀/寫 Long。

語法：expression.SplitRow

其中expression為一個(gè)代表Window對(duì)象的變量。

示例：ActiveWindow.SplitRow = 10 表示拆分線以上有 10 行。

本講內(nèi)容參考程序文件：應(yīng)用005.xlsm

我20多年的VBA實(shí)踐經(jīng)驗(yàn)，全部濃縮在下面的各個(gè)教程中：

【分享成果，隨喜正能量】這世界取易舍難，欲望從來都不是幸福的定義。人生百年，你所需要的少之又少，身心平安，永遠(yuǎn)是那些知足的人。