如何让运行的EXCEL宏在特定的时候暂停10秒?

简单方法是在程序中插入一段空循环，如

msgbox "稍候..."

for i=1 to 1000000

'Do nothing.

next

在Workbook_Open()里添加：

time0=TimeValue("9:30:00")

for i=0 to 11

Application.OnTime time0+i*TimeValue("0:10:00"), "test"

next

可以实现在9:30-11:30，每10分钟自动运行宏test

这要看你运行怎么样的宏。有些宏还是可以的，总要看你 *** 作什么而定。

比如这样，在sheet1，A1单元格的值，每隔10秒钟，就增加1，可以这样做。在Sheet1的Change事件下，写入代码

Private Sub Worksheet_Change(ByVal Target As Range)

Application.OnTime Now() + TimeValue("00:00:10"), "a"

End Sub

其中a是个过程，它的内容为

Public Sub a()

[A1] = [A1] + 1

End Sub

原理是这样，你可以同理变通。关键是触发它的事件要放对，你要根据你的需要多多试验，才能找到最恰当的方式。

---