Application.wait Now() + CDate("00:00:01") VBA暂停1S执行的代码，为什么在2013中找不到“.wait”呢

Excel怎样用VBA代码实现代码的延迟（1秒）执行~

暂停的代码如下：
Application.Wait Now() + CDate("00:00:01")

Application.Wait
方法
暂停运行宏，直到一特定时间才可继续执行。如果到达指定时间，则该值为
True。
语法

表达式.Wait(Time)

表达式 一个代表 Application 对象的变量。

参数




名称

必选/可选

数据类型

说明


Time
必选
Variant
希望宏继续执行的时间（以 Microsoft Excel
日期格式表示）。

返回值
Boolean

说明

Wait 方法暂停 Microsoft Excel 的所有操作，并且，Wait
起作用时可能禁止您对计算机做其他操作。不过，后台操作（如打印和重新计算）将继续进行。



示例

本示例暂停一个正在执行的宏，到今天下午 6:23 时才可继续执行。




Visual Basic for Applications


Application.Wait "18:23:00"


本示例暂停一个正在执行的宏约 10 秒钟。




Visual Basic for Applications


newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime


本示例显示一条消息，用以表明是否经过 10 秒钟。




Visual Basic for Applications


If Application.Wait(Now + TimeValue("0:00:10")) Then
MsgBox "Time expired"
End If

有的

---

富阳市13421267924： vba 怎么停止application.wait - ？
钞丽安吉： Application.Wait 方法 暂停运行宏,直到一特定时间才可继续执行.如果到达指定时间,则该值为 True.语法 表达式.Wait(Time) 表达式 一个代表 Application 对象的变量.参数 名称 必选/可选 数据类型 说明 Time 必选 Variant 希望宏继续执行的...

富阳市13421267924： 请解释一下这个代码的意思?？
钞丽安吉： 1、Application 是一个对象,代表整个 Microsoft Excel 应用程序. 2、Application.Wait 是一个方法,暂停运行宏,直到一特定时间才可继续执行.如果到达指定时间,则该值为 True. 3、Now + x / 24 / 3600 是想表示等待多少秒. 4、只有Now ...

富阳市13421267924： Excel 求助与application.wait 对应的命令 - ？
钞丽安吉： 用wait的时候控制权没释放,后台什么都不会做 建议用其他方式,如 temp=now()+cdate(＂00:00:05＂) while now()<temp doevents wend 延时5秒,延时中释放控制权

富阳市13421267924： vba循环等待直到excel关闭 - ？
钞丽安吉： vba循环等待直到excel关闭的方法是轮训检测是否触发了close方法.如下例子说明问题:1、首先设置等待:Application.Wait(Now + TimeValue(＂00:00:10＂));//等待10秒2、等待完成如果excel关闭触发以下代码 On Error Resume Next Dim ...

富阳市13421267924： 如下Excel宏代码,怎样遍历的慢些,我要看其中的某些内容 - ？
钞丽安吉： 循环内加一句暂停:(0:00:03表示暂停3秒) Application.Wait(Now + TimeValue(＂0:00:03＂))

富阳市13421267924： VBA 时间函数怎么写? - ？
钞丽安吉： 先定义一个变量可以么 timeuser=excel.cells(8,4) Application.Wait (Now() + TimeValue(timeuser))

富阳市13421267924： Excel 请教高手:FOR循环能不能设置间隔时间 - ？
钞丽安吉： newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 10 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime 把以上语句加入FOR 循环,可以间隔10秒 Wait 方法暂停 Microsoft Excel 的所有操作,并且,Wait 起作用时可能禁止您对计算机做其他操作

富阳市13421267924： excel中用 vba 怎么调用outlook express发送邮件 - ？
钞丽安吉： Dim a a = Shell(＂C:\program files\outlook express\msimn.exe＂, 1) AppActivate a Application.Wait (Now + TimeValue(＂0:00:02＂)) SendKeys ＂^n＂, True SendKeys [b1], True SendKeys ＂{Tab}{Tab}＂, True SendKeys [b2], True单元格中B1存放你的邮件发送地址,B2中存放主题

富阳市13421267924： 过几秒再执行下一个程序VBA该怎么写 - ？
钞丽安吉： Application.Wait (Now + TimeValue(＂0:00:05＂))

富阳市13421267924： 是否有一个相当于Thread.sleep方法在VBA - ？
钞丽安吉： 有,Application.Wait(Time)就是干这个事的 比如等待10s后执行 Application.Wait (Now + TimeValue(＂0:00:10＂))