每隔1分钟，a1自动变换数值。第一分钟a1=b1，第二分钟a1=b2，第三分钟a1=b3…

gaoxiaor9

Excel每隔1分钟，a1自动变换数值。第一分钟a1=b1，第二分钟a1=b2，第三分钟a1=b3…  
哪位老师帮忙解一下，谢谢~

ykqrs

1. Dim n%, t#
   
2. Sub qq()
   
3. Call zz
   
4. t = Now + TimeValue("00:01:00")
   
5. Application.OnTime t, "qq"
   
6. End Sub
   
7. Sub zz()
   
8. Dim i%
   
9. n = n + 1
   
10. If n > 3 Then n = 1
    
11. i = (n - 1) Mod 3 + 1
    
12. [a1] = Range("b" & i).Value
    
13. '[a1] = [a1] + 1
    
14. End Sub

复制代码

b1到b3依次循环