当前位置: 首页 > 图文教程 > 脚本技术 > VBA > excel vba 限制工作表的滚动区域代码

VBA
VBA 中要用到的常数
用vba实现将记录集输出到Excel模板
VBA 编程基础
excel vba 限制工作表的滚动区域代码
excel vba 高亮显示当前行代码
当编辑框内容改变 对应的单元格也随着改变vba代码
VBA 浏览文件夹对话框调用的几种方法
向数据报表添加一个合计字段
UserAccessList 集合的功能(VBA)
VBA UsedObjects 集合用法

VBA 中的 excel vba 限制工作表的滚动区域代码


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2010-01-10   浏览: 172 ::
收藏到网摘: n/a

如果希望限制工作表中滚动的区域,可以通过设置WorkSheet对象的ScrollArea属性来实现。 ScrollArea属性使用以A1样式的区域引用形式(字符串类型)返回或设置工作表允许滚动的区域。当设置了工作表滚动区域之后,用户不能选定滚动区域之外的单元格,但仍然可以选定区域之外的其他对象(例如图形、按钮等),同时工作表的一些相应功能可能被禁止(例如工作表全选、选中整行或整列等)。
在VBE中的工程管理窗口选择相应工作表对象,然后在其属性窗口中设置ScrollArea属性,即可限制工作表中滚动的区域,如图所示。
但是Excel不会记忆该项设置,当再次打开该工作簿时,ScrollArea属性将被重置,用户必须重新设置ScrollArea属性才能限制工作表中的滚动区域,解决方法是使用代码在工作簿打开时对ScrollArea属性进行设置,如下面的代码所示。
代码:
复制代码 代码如下:

#001 Private Sub Workbook_Open()
#002 Sheet1.ScrollArea = "B4:H12"
#003 End Sub

代码解析:
工作簿的Open事件,在打开该工作簿时设置Sheet1工作表的滚动区域为“B4:H12”单元格区域。
如果需要取消滚动区域的限制,可以将ScrollArea属性值设置为空,如下面的代码所示。
Sheet1.ScrollArea = ""