帮忙修改跑马灯VBA

zhtvnet

高手们，帮帮忙，详情见文件，为什么第一次点 跑马灯 按钮 会停顿，再点第二次就可以了，还有文字跑的太快，能否帮忙设置一下，跑慢点。

fenghuaxue

1. Dim index As Long
   
2. 
   
3. Public Sub 开始滚动()
   
4.     index = 2
   
5.     StartTimer
   
6. End Sub
   
7. 
   
8. Sub StartTimer()
   
9.     NextTime = Now + timeValue("00:00:01")
   
10.     Application.OnTime NextTime, "RefreshData"
    
11. End Sub
    
12. 
    
13. Sub 停止滚动()
    
14.     On Error Resume Next
    
15.     Application.OnTime EarliestTime:=Now + timeValue("00:00:01"), Procedure:="RefreshData", Schedule:=False
    
16. End Sub
    
17. 
    
18. Public Sub RefreshData()
    
19.     Dim str As String
    
20.     str = Worksheets("数据").Range("B3")
    
21. 
    
22.     str = Mid(str, index) & Left(str, index - 1)
    
23.     index = index + 1
    
24.     [C26] = str
    
25.     StartTimer
    
26. End Sub

复制代码

小凡、、、

未出现第一次会卡顿，把5000改10000速度变慢

zhtvnet

谢谢楼上两位，我弄弄看

zhtvnet

小凡、、、 发表于 2024-10-17 17:38
未出现第一次会卡顿，把5000改10000速度变慢

改了，没有办法实现，还是很快

赵桢0611

改成25000至35000，效果会好一点

zhtvnet

赵桢0611 发表于 2024-10-18 08:59
改成25000至35000，效果会好一点

确实，改了后好很多，谢谢

zhtvnet

fenghuaxue 发表于 2024-10-17 17:33

感谢感谢，这个好用，但是循环两个周期后就停止不动了，没有看明白为什么

fenghuaxue

zhtvnet 发表于 2024-10-18 10:39
感谢感谢，这个好用，但是循环两个周期后就停止不动了，没有看明白为什么

1. Dim Flag As Boolean
   
2. Dim str As String
   
3. 
   
4. Public Sub 开始滚动()
   
5.     str = Worksheets("数据").Range("B3")
   
6.     StartTimer
   
7. End Sub
   
8. 
   
9. Sub StartTimer()
   
10.     NextTime = Now + timeValue("00:00:01")
    
11.     Application.OnTime NextTime, "RefreshData"
    
12. End Sub
    
13. 
    
14. Sub 停止滚动()
    
15.     On Error Resume Next
    
16.     Application.OnTime EarliestTime:=Now + timeValue("00:00:01"), Procedure:="RefreshData", Schedule:=False
    
17. End Sub
    
18. 
    
19. Public Sub RefreshData()
    
20.     str = Mid(str, 2) & Left(str, 1)
    
21.     [C26] = str
    
22.     StartTimer
    
23. End Sub

复制代码

zhtvnet

fenghuaxue 发表于 2024-10-18 11:19

看明白了，原来如此，谢谢