黄海迅雷高清下载:工作表中具有定位、导航作用的代码

来源:百度文库 编辑:九乡新闻网 时间:2024/07/05 19:33:34
 '本示例设置第一张工作表的滚动区域。
Worksheets(1).ScrollArea = "a1:f10" '可将本属性设置为空字符串 ("") 以允许对整张工作表内所有单元格的选定。
Worksheets(1).ScrollArea = "" '本示例将工作表 Sheet1 的活动窗口内容向下滚动三行。
Worksheets("Sheet1").Activate
ActiveWindow.SmallScroll down:=3 '本示例将 Sheet1 的活动窗口中的内容向下滚动三页。
Worksheets("Sheet1").Activate
ActiveWindow.LargeScroll down:=3 '本示例将第10行移到窗口的最上面。
Worksheets("Sheet1").Activate
ActiveWindow.ScrollRow = 10 '本示例将第3列移到窗口的最左侧。
Worksheets("Sheet1").Activate
ActiveWindow.ScrollColumn = 3 '本示例将工作表标签滚动到工作簿的最后一张工作表。
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
『ScrollWorkbookTabs 方法
请参阅 应用于 示例 特性
滚动工作簿窗口下方的工作表标签?本方法不改变该工作簿中的活动工作表?expression.ScrollWorkbookTabs(Sheets, Position)expression   必需。该表达式返回一个 Window 对象。Sheets   Variant 类型,可选。要滚动的工作表的数目。为正数则向左滚动,为负数则向右滚动,为 0(零)则不作滚动。如果不指定 Position 参数,则必须指定 Sheets 参数。Position   Variant 类型,可选。设为 xlFirst 可滚动到第一张工作表,设为 xlLast 可滚动到最后一张工作表。如果不指定 Sheets 参数,则必须指定 Position 参数。』
可以设置移动方向的:     Application.MoveAfterReturnDirection = xlToRight
    Application.MoveAfterReturnDirection = xlToLeft
    Application.MoveAfterReturnDirection = xlDown
    Application.MoveAfterReturnDirection = xlUp