下面这个代码时间精确度只能是整数，能不能改一下，精确到小数点后面1-2位

杨克敏 · 发表于 2024-9-2 12:01

下面这个代码时间精确度只能是整数("00:00:03")，能不能改一下，精确到小数点后面1-2位，如3.2或3.26，麻烦指教一下谢谢！

Sub start()

If Range("C19") = 2500 Then
      End
Else
      Range("C19") = Range("C19") + 1
      Application.OnTime Now() + TimeValue("00:00:03"), procedure:="start"
End If
End Sub

饮冰e士 · 发表于 2024-9-2 12:37

用API函数Sleep，以毫秒为单位。

杨克敏 · 发表于 2024-9-2 13:41

饮冰e士发表于 2024-9-2 12:37
用API函数Sleep，以毫秒为单位。

能帮忙写一个吗？感谢，我不懂这个，还要教一下这个怎么用，

饮冰e士 · 发表于 2024-9-2 14:40

杨克敏发表于 2024-9-2 13:41
能帮忙写一个吗？感谢，我不懂这个，还要教一下这个怎么用，

VBA（VB）中实现延时（等待）的3种方法

https://club.excelhome.net/threa ... tml?_dsign=bcf34799

		自动登录	找回密码
密码			免费注册

[求助] 下面这个代码时间精确度只能是整数，能不能改一下，精确到小数点后面1-2位