EXCEL报表如何实现自动滚屏循环播放？
发布网友
发布时间：2022-04-22 06:18
共1个回答
热心网友
时间：2023-08-07 04:34
使用excel中的vba宏可实现该功能
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
[a3].Select
ToggleButton1.Caption = "停止滚动"
l:
Do
i = i + 1
Application.Wait Now + TimeValue("00:00:01")
ActiveWindow.SmallScroll Down:=30
If i = 12 Then
[a3].Select
i = 0
GoTo l
End If
DoEvents
Loop Until ToggleButton1.Value = False
Else
ToggleButton1.Caption = "开始滚动"
End If
End Sub
来自：求助得到的回答