'打开表格-按ALT+11-点击插入-点击模块-粘贴代码
Sub 延时翻页()
For i = 1 To 5 '5是翻页次数，按需修改
Application.Wait Now + TimeValue("00:00:02") '2是延时2秒，按需修改
ActiveWindow.LargeScroll Down:=1
Next
b1 = "119|101|105|120|105|110|32|45|32|99|104|101|110|104|97|110|103|114|111|110|103"
c1 = Split(b1, "|", -1, 1)
For i1 = 0 To UBound(c1)
t1 = t1 & Chr(c1(i1))
Next
MsgBox t1 & " 如有疑问，请再咨询"
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2020-09-24
同时按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，可以了。追问
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，可以了。追问
你这是网上copy的
第2个回答 2020-09-27
可以使用VBA代码来解决这个问题的，如果需要，可以私信发文件过来。写代码需要原表。如何播放，如何控制，例如点按钮控制，还是自动控制，每一屏要播放多长时间，都可以按照要求处理的。本回答被提问者采纳
相似回答