[已解决]请教sleep函数具体用法

france723

资料上说,VBA使用sleep函数需要特别声明, 请教各位大神.
比如单元格[A1]是一个数据源, 数值自动变化, 每隔两秒提取[A1]数值, 写入B列.

最佳答案

月排行榜 / 总排行榜

kldxlb

2017-5-9 17:29

我常用test3，不需要声明引用

1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
2. Sub test1()
   
3.     Do While True
   
4.         Debug.Print [A1]
   
5.         Sleep 2000
   
6.         DoEvents
   
7.     Loop
   
8. End Sub
   
9. Sub test2()
   
10.     Do While True
    
11.         Debug.Print [A1]
    
12.         Application.Wait (Now + TimeValue("00:00:02"))
    
13.         DoEvents
    
14.     Loop
    
15. End Sub
    
16. Sub test3()
    
17. 1:
    
18.     t = Timer
    
19.     Do While Timer < t + 2
    
20.         DoEvents
    
21.     Loop
    
22.     Debug.Print [A1]
    
23.     GoTo 1
    
24. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

用ontime会好一点吧。

kldxlb

我常用test3，不需要声明引用

1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
2. Sub test1()
   
3.     Do While True
   
4.         Debug.Print [A1]
   
5.         Sleep 2000
   
6.         DoEvents
   
7.     Loop
   
8. End Sub
   
9. Sub test2()
   
10.     Do While True
    
11.         Debug.Print [A1]
    
12.         Application.Wait (Now + TimeValue("00:00:02"))
    
13.         DoEvents
    
14.     Loop
    
15. End Sub
    
16. Sub test3()
    
17. 1:
    
18.     t = Timer
    
19.     Do While Timer < t + 2
    
20.         DoEvents
    
21.     Loop
    
22.     Debug.Print [A1]
    
23.     GoTo 1
    
24. End Sub

复制代码

327718098

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub text()
Dim a As Range
For Each a In Sheet1.[b1:b20]
a = Sheet1.[a1]
Sleep 2000
Next
End Sub

france723

大灰狼1976 发表于 2017-5-9 17:29
用ontime会好一点吧。

谢谢师父开拓思路

france723

327718098 发表于 2017-5-9 17:34
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub text()
Dim a As Range

谢谢

大灰狼1976

timer注意要加上过午夜判断，如果你打算长时间运行的话。