单元格数字循环变化

zgjxxx

我想在excel里面，让A1单元格，每隔0.5秒变化一次，
先是从1到31依次增大，到了31以后，又从31到1依次减小。
如此一直循环。怎么实现？


我对VBA一点都不了解。可以帮我写好代码，上传附件吗？谢谢！

饮冰e士

这个好像有难度，知道通过API的sleep可以精确到毫秒，不知道VBA自己能不能实现？

饮冰e士

1. Public currentValue As Integer
   
2. Public direction As Integer
   
3. Public nextTime As Date
   
4. 
   
5. Sub StartLoop()
   
6.     currentValue = 1
   
7.     direction = 1  ' 1表示递增，-1表示递减
   
8.     UpdateValue
   
9. End Sub
   
10. 
    
11. Sub UpdateValue()
    
12.     ' 将当前值写入A1单元格
    
13.     Range("A1").Value = currentValue
    
14.    
    
15.     ' 检查是否需要改变方向
    
16.     If currentValue = 31 And direction = 1 Then
    
17.         direction = -1
    
18.     ElseIf currentValue = 1 And direction = -1 Then
    
19.         direction = 1
    
20.     End If
    
21.    
    
22.     ' 计算下一个值
    
23.     currentValue = currentValue + direction
    
24.    
    
25.     ' 安排0.5秒后再次执行
    
26.     nextTime = Now + TimeSerial(0, 0, 0.5)
    
27.     Application.OnTime nextTime, "UpdateValue"
    
28. End Sub
    
29. 
    
30. Sub StopLoop()
    
31.     On Error Resume Next  ' 避免未计划任务时报错
    
32.     Application.OnTime nextTime, "UpdateValue", , False
    
33. End Sub
    

复制代码

ynzsvt

0.5精度太高了，不能执行。可考虑两个一秒的只执行