在vba中使用FreezePanes冻结Excel窗口的代码_办公软件_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

在vba中使用FreezePanes冻结Excel窗口的代码

作者：闵涛文章来源：闵涛的学习笔记点击数：2417 更新时间：2010/6/21 21:48:04

　　使用VBA代码，可以很方便的冻结Excel的窗口。

　　下面，贴出常用的代码，以方便您的操作。

　　①代码

　　Sub Freeze()

　　　ActiveWindow.FreezePanes = Not ActiveWindow.FreezePanes

　　End Sub
　　'代码功能是，点击一下该过程，就冻结；再点击一次，就取消冻结。是一种循环冻结或取消的代码。

　　②代码

　　Activwindow.FreezePanes=true

　　'代码功能是：冻结Excel窗口；如果要取消，就必须使用菜单的操作，才能取消。

　　③代码

　　Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　　If ActiveWindow.SplitRow = 2 And ActiveWindow.SplitColumn = 1 Then Exit Sub
　　　　ActiveWindow.SplitRow = 2
　　　　ActiveWindow.SplitColumn = 1
　　　　ActiveWindow.FreezePanes = True
　　　End Sub

　　代码说明：

　　ActiveWindow.SplitRow = 2 表示冻结第二行
　　ActiveWindow.SplitColumn = 1 表示冻结第一列

　　由于上述代码使用的是ActiveWindow.FreezePanes = True，所以，要想取消窗口的冻结，就要使用菜单操作。

[办公软件]excel中的VBA中的With语句的使用介绍及实例 [办公软件]通过VBA中的Union合并多个Range选择区域

教程录入：mintao 责任编辑：mintao

上一篇教程：把每个工作表分别单独保存为一个工作薄的VBA代码

下一篇教程： vba操作Excel页眉页脚页面设置的代码

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]