本文总共1887个字,阅读需7分钟,全文加载时间:2.602s,本站综合其他专栏收录该内容! 字体大小:

文章导读:【分享成果,随喜正能量】福虎迎春,祝所有的朋友虎年大吉,喜乐安康。我们身边有许多良善、智慧和好心肠的朋友,他们就是一处处美丽的风景,滋养着我们的心灵、带给我们安全和自由的栖息之地。 原预计春节期间停……各位看官请向下阅读:

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

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

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

以上内容由优质教程资源合作伙伴 “鲸鱼办公” 整理编辑,如果对您有帮助欢迎转发分享!

你可能对这些文章感兴趣:

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注