自制一个移动动画，移动速度要如何来控制？

qingquan31

自作了一个模拟怪物运动的excel，可以自己设置路径，路径校对，生成坐标，想增加一个功能，让怪物按照路径自动移动，并可以通过“sheet2”里边的时间设置来控制速度。用Application.Wait来控制，貌似最低单位只能1秒，我想控制的最低单位是毫秒。用Sleep来控制，执行起来没有具体运动轨迹。
求助各位大神如何处理，就差这最后一步啦。

suye1010

Application.ontime可以吗？

qingquan31

suye1010 发表于 2015-12-1 12:44
Application.ontime可以吗？

ontime如何精确到毫秒？

爱疯

Sub test()
    Dim x
    x = 300
    Call Millisecond(x)
    MsgBox "等待时间：" & x & "毫秒"
End Sub

Sub Millisecond(n)
    Dim t
    t = Timer
    Do While Timer - t < n / 1000
        VBA.DoEvents
    Loop
End Sub

qingquan31

Do While Timer - t < n / 1000
        VBA.DoEvents
    Loop

这一段什么意思？没看懂

爱疯

qingquan31 发表于 2015-12-1 17:42
Do While Timer - t < n / 1000
        VBA.DoEvents
    Loop

当Do...Loop 语句的运行时间达到指定时间，就结束循环。