Question

您好，请教个问题：一张excel表有很多页，做个按钮，点击一下可以进行滚动显示

excel表格 大约12页，表格已设置最上面的4行不动（已设置为“冻结窗格”）。
想要实现自动滚屏显示每一页，大约数秒翻一页（到最下面一页然后再从头开始）。
或者实现循环匀速滚动显示也行（滚动到最下面一行然后再从头开始滚动）。
怎么实现，谢谢！
问题补充：一张excel表有很多页，做个按钮，点击一下可以进行滚动显示，我想实现如下功能：1、点击“滚动”按钮表格开始滚动显示，当表格滚动显示到第300行时，表格再从第1行开始滚动显示，就是做成从第1行至第300行循环显示功能；2、当再次点击“滚动”按钮，或者是再加入一个“停止”按钮时，表格停止滚动显示

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

建议你复制到ppt里面去 通过设置放映方式实现自动滚屏

Answer 3

不必-9inoim【p/b