如何通过VBA代码来滚动Excel的窗口

2016-02-19 14:09 2 1 收藏

今天图老师小编要跟大家分享如何通过VBA代码来滚动Excel的窗口,精心挑选的过程简单易学,喜欢的朋友一起来学习吧!

【 tulaoshi.com - Excel教程 】

①滚动行

Worksheets("Sheet1").Activate

ActiveWindow.ScrollRow = 14

代码解释:上述代码的功能是,先激活Sheet1,将其作为活动工作表,然后,自动拖动垂直滚动条,将第14行拖到第一行的位置,即第一行至第13行将被拖到窗口中的上面,并看不到,而第14行则显示在可视窗口的最上面(在可视范围的第一行位置)。

与之相关的知识:

在Excel中,ScrollRow 属性的功能为返回或设置指定窗格或窗口最上面的行号。Long 类型,可读写。

ScrollRow - ScrollRow 属性说明

如果指定窗口处于拆分状态,Window 对象的 ScrollRow 属性表示左上方的窗格。如果某些窗格处于冻结状态,则 Window 对象的 ScrollRow 属性将不包括冻结的区域。

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com)

②滚动列

Worksheets("Sheet2").Activate

ActiveWindow.ScrollColumn =6

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com)

代码解释:上述代码的功能是,先激活Sheet2,将其作为活动工作表,然后,自动拖动水平滚动条,将第6列拖到第一列的位置,即第一列至第5列将被拖到窗口中的左边,并看不到,而第6列则显示在可视窗口的最左边(在可视范围的第一列位置)。

与此相关的知识:

Window.ScrollColumn 属性

返回或设置指定窗格或窗口最左边的列号。Long 型,可读写。

语法

表达式.ScrollColumn

表达式 一个代表 Window 对象的变量。

说明:如果窗口处于拆分状态,则 Window 对象的 ScrollColumn 属性表示左上方的窗格。如果某些窗格处于冻结状态,则 Window 对象的 ScrollColumn 属性将不包括冻结的区域。

来源:https://www.tulaoshi.com/n/20160219/1606276.html

延伸阅读
标签: excel
excel vba是什么?   故障分析:excel VBA其实就是大家代码编辑程序,有的人被人认为是宏,但是excel vba是包括宏程序的。下面还是一起来看看excel vba是什么?如何打开? 一、excel vba是什么? excel VBA中的vba是Visual Basic For Application的缩写。一般用来实现简单或中等的办公自动化应用。因为易学并且能很好的被...
标签: 电脑入门
有的时候,我们要在Excel中添加斜线表头,可Excel并没有提供制作斜线表头的功能,每次都要手工画一条斜线,非常麻烦。有没有解决方法呢?其实,我们可以利用VBA代码可以编写一个功能,一键插入Excel斜线表头。 用控件工具箱中的命令按钮控件,在工作表中绘制一个命令按钮,将Caption属性改为一键插入斜线表头,双击该按钮,在Click事件中编写代...
标签: 电脑入门
①返回应用程序完整路径 Application.Path 比如:D:SoftWareOffice2003OFFICE11 ②返回当前工作薄的路径 ThisWorkbook.Path 比如:D: ③返回当前默认文件路径 Application.DefaultFilePath 比如:C:Documents and SettingsAdministratorMy Documents ④只返回路径 Application.ActiveWorkbook.Path 比如:D: ⑤返回路径及工作簿文...
标签: 电脑入门
一、获取单元格的备注 Private SubCommandButton1_Click() Dim strGotIt As String strGotIt = WorksheetFunction.Clean(Range("A1").Comment.Text) MsgBox strGotIt End Sub Range.Comment.Text用于得到单元格的备注文本,如果当前单元格没有添加备注,则会引发异常。注意代码中使用了WorksheetFunction对象,该对象是Excel...
标签: 电脑入门
如下代码示例的功能是,在Excel中,通过VBA代码,读取XML文件中的内容。 Dim rst As ADODB.Recordset Dim stCon As String, stFile As String Dim i As Long, j As Long Set rst = New ADODB.Recordset stFile = "C:dzwebs.xml" stCon = "Provider=MSPersist;" With rst .CursorLocation = adUseClient .Open stF...

经验教程

665

收藏

56
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部