Excel Excel 如何实现表自动循环滚屏显示

Question

如题所述

Answer 1

同时按Alt和F11进入宏界面，插入，模块，粘贴如下代码：
Dim iFlag As Boolean
Dim i As Integer
Sub MoveDown()
If iFlag Then
iFlag = False
Else
If i = 12 Then
i = 0
Else
i = i + 1
End If
Range("A" & i * 28 + 17).Select
Application.OnTime Now + TimeValue("0:0:2"), "movedown"
End If
End Sub

Sub StopM()
iFlag = True
End Sub

粗体的12表示12页；粗体的0:0:2表示2秒（你改为0:0:5就是5秒）。
粗体的28和17，不太好理解：以我现在的Excel文件为列，头4行冻结，大约28行是一页（实际32行，因为还有4行冻结行）；而17确保每翻一页正好是28行。你自己试着调整吧。

然后回到Excel里，在前4行的某地方插入两个形状（比如文本框之类的，一个写翻页，一个写停止），右键点形状，分别制定宏为MoveDown和StopM，可以了。

望采纳

Answer 2

点击“滚动”按钮表格开始滚动

Answer 3

得用vba代码实现

Answer 4

一个页面一个页面滚动？