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