推荐:工作表中具有定位、导航作用的代码
'本示例设置第一张工作表的滚动区域。
Worksheets(1).ScrollArea = "a1:f10" '可将本属性设置为空字符串 ("") 以允许对整张工作表内所有单元格的选定。
Worksheets(1).ScrollArea = "" '本示例将工作表 Sheet1 的活动窗口内容向下滚动三行。 Worksheets("Sheet1").Activate
ActiveWindow.SmallScroll down:=3 '本示例将 Sheet1 的活动窗口中的内容向下滚动三页。
Worksheets("Sheet1").Activate
ActiveWindow.LargeScroll down:=3
'本示例将第十行移到窗口的最上面。 Worksheets("Sheet1").Activate
ActiveWindow.ScrollRow = 10 '本示例将第三列移到窗口的最左侧。 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 参数。』 |