求一个自动滚屏的VBA

伊人小木木

见文件，求助一下：
让工作表自动滚屏，按20行滚动，停留5秒，一直滚动到表末（第287行），然后回到起点，重复循环滚动，点击控件按钮开始或结束。

是否可行，求助各位大神，谢谢了

user湫

我怎么没有看见文件？？？？

伊人小木木

user湫 发表于 2023-8-28 16:38
我怎么没有看见文件？？？？

我重新添加了，您看下有没看得到

zpy2

https://e.anyoupin.cn/eh3/tools/detail.php?r=738
滚动看板？

user湫

1. Sub AutoScroll()
   
2.     Dim i As Integer
   
3.     Dim rowCount As Integer
   
4.     Dim scrollRow As Integer
   
5.     Dim scrollSpeed As Integer
   
6.     Dim pauseCount As Integer
   
7.    
   
8.     scrollSpeed = 1
   
9.     pauseCount = 23
   
10.    
    
11.     rowCount = ActiveSheet.UsedRange.Rows.Count
    
12.     scrollRow = 1
    
13.     Do
    
14.         For i = 1 To rowCount
    
15.             ActiveWindow.scrollRow = scrollRow
    
16.             Application.Wait (Now + TimeValue("0:00:01") / scrollSpeed)
    
17.             
    
18.             scrollRow = scrollRow + 1
    
19.             
    
20.             ' 每滚动20行暂停5秒
    
21.             If i Mod pauseCount = 0 Then
    
22.                 Application.Wait (Now + TimeValue("0:00:05"))
    
23.             End If
    
24.             
    
25.             If scrollRow > rowCount Then
    
26.                 scrollRow = 1
    
27.             End If
    
28.         Next i
    
29.         i = 1
    
30.     Loop
    
31. End Sub
    

复制代码

user湫

长按Esc 退出 如果有用 送个小花