首页 文章

睡眠功能错误453

提问于
浏览
1

我在vba excel 2010 32位计算机上运行了以下程序:

声明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
    

相关问题