曾经在BBS看到有人求助，大致的意思是：现在我有一个Excel表格，要放在车间展示，需要他自动往下翻行或者翻页，并且翻到底后再回到第一行继续翻，24小时无人值守那种展示，请问如何实现？实借用VBA是很容易实现的，可以自定义上下滚动的起止行，一次滚动的行数，滚动间隔时间，看看效果
Excel自动循环滚屏1、按Alt+F11进入VBA代码编辑界面，加入自定义的模块：Public gundong As BooleanPublic Sub 滚屏(ByVal row As Long)If gundong = True ThenActiveWindow.ScrollRow = rowElseEndEnd IfEnd Sub2、开发工具——设计模式中插入按钮，并添加相应的单击代码：Private Sub CommandButton1_Click()If CommandButton1.Caption = "滚屏" ThenCommandButton1.Caption = "停止滚屏"gundong = Trueflag:Dim irow As Integer '定义一共需要处理的行号irow = Range("A:A").Find("", , xlValues, , , xlPrevious).row '通过A列计算表格最末行行号For i = 3 To irow Step 1 '设置需要滚动的起止行及一次滚动的行数Start = TimerPauseTime = 1Do While Timer < Start + PauseTimeDoEventsLoopIf gundong = True ThenCall 滚屏(i)End IfNextGoTo flagElseCommandButton1.Caption = "滚屏"gundong = FalseEnd IfEnd Sub退出设计模式，保存OK