[已解决]提示”无法运行，可是是宏在此工作簿中不可以，或是禁止“

503244002 · 发表于 2015-5-21 21:18

本帖最后由爱疯于 2015-5-22 21:41 编辑

Sub run()
Application.OnTime Now + TimeValue("00:00:10"), "dingshi"
End Sub
Sub dingshi()
MsgBox("晚上好", vbInformation, "！！！")
End Sub

求大神帮忙看一下，上面的代码，我运行后怎么提示说”无法运行，可是是宏在此工作簿中不可以，或是禁止“，但是单个运行“dingshi”是可以运行的？求教大神

最佳答案

月排行榜 / 总排行榜

爱疯

2015-5-22 21:40

新建 Microsoft Excel 工作表2.rar (19.88 KB, 下载次数: 36)

as0810114 · 发表于 2015-5-21 21:24

本帖最后由 as0810114 于 2015-5-21 21:25 编辑

Sub run()
Application.OnTime Now + TimeValue("00:00:10"), "dingshi"
End Sub
Sub dingshi()
MsgBox "晚上好", vbInformation, "！！！"
End Sub

503244002 · 发表于 2015-5-21 21:28

as0810114 发表于 2015-5-21 21:24
Sub run()
Application.OnTime Now + TimeValue("00:00:10"), "dingshi"
End Sub

还是不行

as0810114 · 发表于 2015-5-21 21:29

我这里测试没问题

爱疯 · 发表于 2015-5-22 11:32

MsgBox("晚上好", vbInformation, "！！！")
不要加括号
MsgBox "晚上好", vbInformation, "！！！"

其它地方没什么，运行正常

503244002 · 发表于 2015-5-22 20:58

爱疯发表于 2015-5-22 11:32
MsgBox("晚上好", vbInformation, "！！！")
不要加括号
MsgBox "晚上好", vbInformation, "！！！"

那请您帮忙看一下，我这个怎么不行啊

爱疯 · 发表于 2015-5-22 21:40

新建 Microsoft Excel 工作表2.rar (19.88 KB, 下载次数: 36)

503244002 · 发表于 2015-5-23 07:41

爱疯发表于 2015-5-22 21:40
放到模块里就可以了，原因现在还没想到。

好，谢谢，希望您想出原因后能不吝赐教

爱疯 · 发表于 2015-5-23 11:57

Sub run()
Application.OnTime Now + TimeValue("00:00:10"), "thisworkbook.show_my_msg"
End Sub

试了下，还是放在thisworkbook里，只要过程名补足前缀也是可以的。
对此相关的帮助没找着，等其他朋友来说明吧。

503244002 · 发表于 2015-5-23 14:26

爱疯发表于 2015-5-23 11:57
Sub run()
Application.OnTime Now + TimeValue("00:00:10"), "thisworkbook.show_my_msg"
End Sub

太谢谢你了

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