excel中自动循环播放的问题

Question

我在网上找了一段代码，想要让它滚动到最后一行后返回第一行，之后继续向下滚动，一直循环，请问应该怎么改？
oldtime=Timer（ ）
newtime=Timer（ ）
A=0
While 1=1
newtime=Timer（ ）
If newtime－oldtime>2 Then
oldtime=newtime
If A<100 Then
ActiveWindow.SmallScroll DOWN:=1
A=A＋1
End If
If A>=100 Then
ActiveWindow.SmallScroll UP:=1
A=A＋1
If A>=200 Then
A=0
End If
End If
End If
Wend
楼下的办法不行呀，问题好像处在 If newtime - oldtime > 2 Then 这里

Answer 1

ActiveWindow.SmallScroll UP:=1 把1改为要上滚的行数
然后把这句放到
If A>=200 Then
A=0
后面试试