如何用VBA来实现，使excel工作表数据在设定好滚动区域自动循环显示， 就像火车站票务信息显示屏一样。

Question

sub xx()
Do
Cells(1, 1).Select
For i = 1 To 80
ActiveWindow.SmallScroll Down:=1
For j = 1 To 5000000
Next
Next
Loop
end sub 这个太快了。电子表格死机。

Answer 1

for 内部要加 doevents 就不会假死

for i=1 to 2
doevents
你的代码
i=i-1
next

Answer 2

Sub test()
 Application.OnTime Now + TimeValue("00:00:03"), "test"
 ActiveWindow.SmallScroll Down:=1
End Sub
怎么跳出自己应该能设计吧。。

Answer 3

多大的区域 屏幕装的下吗 我曾经写过一个