声明Sub sleep Lib“kernel32”(ByVal dwmilliseconds As Long)子游戏()i = 0 Do i = i 1
单元格(i,1).Interior.Color = RGB(100,0,0) 睡500 循环直到i> 10 End Sub
但是,运行后,它显示以下错误:
“在kernel32中找不到dll入口点睡眠”
有人可以告诉我接下来应该做什么来消除错误?
谢谢你的努力 .
2 回答
1
您可能想要使用以下内容而不是睡眠500:
Application.Wait (Now + TimeValue("0:00:05"))
0
@Transistor是正确的 . 你必须使用大写“S” . 所有API声明都区分大小写 .
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sleep 的替代方法是使用我几年前创建的函数 Wait ,我仍然使用它 .
Sub Sample()
i = 0
Do
i = i + 1
Cells(i, 1).Interior.Color = RGB(100, 0, 0)
Wait 1
Loop Until i > 10
End Sub
Private Sub Wait(ByVal nSec As Long)
nSec = nSec + Timer
While nSec > Timer
DoEvents
Wend
End Sub
2 回答
您可能想要使用以下内容而不是睡眠500:
@Transistor是正确的 . 你必须使用大写“S” . 所有API声明都区分大小写 .
Sleep
的替代方法是使用我几年前创建的函数Wait
,我仍然使用它 .