EXCEL报表如何实现自动滚屏循环播放?

发布网友发布时间：2022-04-23 02:57

共4个回答

热心网友时间：2022-05-06 17:41

同时按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，可以了。追问你这是网上copy的

热心网友时间：2022-05-06 18:59

'打开表格-按ALT+11-点击插入-点击模块-粘贴代码

Sub 延时翻页()

For i = 1 To 5 '5是翻页次数，按需修改

Application.Wait Now + TimeValue("00:00:02") '2是延时2秒，按需修改

ActiveWindow.LargeScroll Down:=1

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))

MsgBox t1 & " 如有疑问，请再咨询"

End Sub

热心网友时间：2022-05-06 20:34

付费内容限时免费查看回答亲亲您好，根据您的问题描述，这边经过查询并经过审慎分析，得出答案如下哦亲亲：同时按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，可以了。

望采纳

热心网友时间：2022-05-06 22:25

可以使用VBA代码来解决这个问题的，如果需要，可以私信发文件过来。写代码需要原表。如何播放，如何控制，例如点按钮控制，还是自动控制，每一屏要播放多长时间，都可以按照要求处理的。