Application.OnTime无法运行宏，崩溃了

hhj017

Sub run12()

MsgBox 123

End Sub

Sub run13()

Call run12
Application.OnTime Now() + TimeSerial(0, 0, 2), procedure:="run12"

End Sub

run13这个宏运行之后第一行成功，第二行就会说无法运行，为什么？有没有高手帮帮忙？

c:\error.PNG

之前有过人提过这样的问题http://club.excelhome.net/forum.php?mod=viewthread&tid=568633
但是我本来就是按照里面的解决方法做的，还是遇到这种问题。求救啊

张三李四

  你在   Sub run13()  调用了一次 run12, 同时通知隔2秒再运行  run12 ,此后就没用再通知继续运行 run12,回此只能运行2次

hhj017

run13去掉第一行是一样的。
我刚刚发现了问题所在
是用Application.OnTime的时候调用宏如果名称里面有数字就不能直接用双引号引用，而必须里面加一层单引号。
虽然不知道为什么，但是改成"'run12'"确实可以用了，真是奇怪啊

张三李四

Application.OnTime Now + TimeValue("00:00:15"), "run12

jiangwh15

这不是递归调用啊。

528901298

请问我在工作表上写宏
Private Sub Worksheet_Activate()
    Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkbook.Close"
End Sub
为什么老是提示未找到宏 ："ThisWorkbook.Close"

528901298

如果把宏修改成
Sub MBookClose()
  ThisWorkbook.Close
End Sub
Private Sub Worksheet_Activate()
    Application.OnTime Now + TimeValue("00:00:05"), "MBookClose"
End Sub
提示变成未找到宏 ："MBookClose"，请问是哪里出错了

lmswy

528901298 发表于 2012-2-2 15:39
请问我在工作表上写宏
Private Sub Worksheet_Activate()
    Application.OnTime Now + TimeValue("00:0 ...

试试这个
Private Sub Worksheet_Activate()
    Application.Wait (Now + TimeValue("0:00:05"))
    ThisWorkbook.Close
End Sub