呼伦贝尔不锈钢保温 VBA延时的三个方法--以及声明之后，使用sleep报错的解决方案（declare ptrsaft）

查阅相关资料，获取较为可行的三个方法为：

1、一般延时（计时单位为秒级，1代表1s，下面两种方法皆是毫秒级，1000代表1s）

一个应用接口需要限制运行速度，需要在循环中加个延时函数，这个延时不需要多么精确，要求有个几秒延时，网上用的比较多的就是用Timer函数编写，Timer是VBA自带的函数，用起来比较方便，一般程序如下：'延时程序邮箱：215114768@qq.com

真正的功夫修炼，不仅需要外在的努力，铝皮保温更需要内在的领悟。只有将“求”与“悟”结起来，才能达到功夫的至臻境界。无论是学习、工作还是生活，在勤奋努力的同时，更要注重内心的觉醒和领悟！

真正的功夫修炼，不仅需要外在的努力，更需要内在的领悟。只有将“求”与“悟”结起来，才能达到功夫的至臻境界。无论是学习、工作还是生活，在勤奋努力的同时，更要注重内心的觉醒和领悟！

Sub delay(T As Single)    Dim time1 As Single    time1 = Timer    Do        DoEvents    Loop While Timer - time1 < T    Debug.Print ("运行结束，总计耗时为：" & Timer - time1 & "s")End SubSub ce_time()delay (1.5)End Sub

果图如下：(图一图二一样的，不过图一没有那么讲究换行，代码规范= =