曾經在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。
,更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
