Excel表格一键自动循环上下滚屏

曾经在BBS看到有人求助，大致的意思是：

现在我有一个Excel表格，要放在车间展示，需要他自动往下翻行或者翻页，并且翻到底后再回到第一行继续翻，24小时无人值守那种展示，请问如何实现？

实借用VBA是很容易实现的，可以自定义上下滚动的起止行，一次滚动的行数，滚动间隔时间，看看效果。

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。