[已解决]【求教】等待时间到执行语句

xdwy81129 · 发表于 2013-4-30 15:38

Sub Macro1()
'希望这里增加语句，在等待3分钟后往下执行，谢谢赐教
MsgBox "你好"
End Sub

等待执行下一句.rar (4.7 KB, 下载次数: 16)

hwc2ycy · 发表于 2013-4-30 15:49

application.wait，你F1

hwc2ycy · 发表于 2013-4-30 15:50

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

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

hwc2ycy · 发表于 2013-4-30 15:53

application.wait now+1/24/60*3
这样不知道对不对。

xdwy81129 · 发表于 2013-4-30 15:54

hwc2ycy 发表于 2013-4-30 15:50
Application.Wait 方法
暂停运行宏，直到一特定时间才可继续执行。如果到达指定时间，则该值为 True。
语 ...

谢谢，但在等待的过程中，cpu的占用到达顶峰，我是想cpu闲置

hwc2ycy · 发表于 2013-4-30 15:55

你中间整个要暂停3分钟，最好是弄个窗体显示，免得人不知所措。

xdwy81129 · 发表于 2013-4-30 15:57

hwc2ycy 发表于 2013-4-30 15:55
你中间整个要暂停3分钟，最好是弄个窗体显示，免得人不知所措。

我是想在等待的过程中，让cpu闲置，然后在切换到其他用户，让宏自己一直执行下去

hwc2ycy · 发表于 2013-4-30 16:09

WAIT跟CPU100%没有关系吧。只是暂停EXCEL的操作和运行。

hwc2ycy · 发表于 2013-4-30 16:11

不行你就只有用API了，看看是否有SLEEP，HUNGUP这类的函数。

xdwy81129 · 发表于 2013-4-30 16:14

hwc2ycy 发表于 2013-4-30 16:11
不行你就只有用API了，看看是否有SLEEP，HUNGUP这类的函数。

这些都不会用呀

		自动登录	找回密码
密码			注册