代码讲解:(略)
代码的运行效果:
实例六:使用VBA完成指定行列拆分窗格
这个实例我们将利用VBA完成当前工作表的拆分,拆分的位置是左数第二列,上数第4行。下面看我给出的代码:
Sub mynzF()
Sheets("Sheet1").Activate
'完成窗口的拆分,拆分的位置是左数第二列,上数第四行
ActiveWindow.SplitColumn = 2
ActiveWindow.SplitRow = 4
End Sub
代码截图:
代码的解读:(略)
代码的运行效果:
总结:在此专题的内容中,我们涵盖了如何根据行、列或单元格冻结或拆分窗格。我们看到了如何手动在Excel中执行,也看到了如何使用VBA脚本实现自动化。利用VBA进行自动化的操作是一个趋势。
今日内容回向:
1 VBA自动冻结和拆分窗格是如何进行的?
2 本讲介绍了多种属性,是否理解?
本讲内容参考程序文件:应用005.xlsm