[算表] 宏无法自动更新

楼主: liquidbox (樹枝擺擺)   2018-07-23 11:14:49
软件:Excel
版本:2016
请问,我在excel里写了一个简单VBA,想要测试自动更新
内容如下:
Sub auto_update()
Sheets(1).Activate
Range("A1").Activate
ActiveCell.FormulaR1C1 = Now()
Application.OnTime Now + TimeValue("00:00:03"), "auto_update"
End Sub
但一执行到Application.OnTime时,就会出现
“该宏可能无法在此活页簿中使用,或者已停用所有宏”
我已经将信任中心的宏设定安全性设到最低,还是会出现同样错误
我也试过把Application.OnTime拉到外面来执行,变成两个独立宏,
Sub auto_update()
Sheets(1).Activate
Range("A1").Activate
ActiveCell.FormulaR1C1 = Now()
End Sub
sub test()
Application.OnTime Now + TimeValue("00:00:03"), "auto_update"
end sub
因为执行宏前半都没问题,都只出在Application.OnTime
请问这个Application.Ontime有什么另外要注意的地方吗?
谢谢
作者: soyoso (我是耀宗)   2018-07-23 11:52:00
是否将宏写在工作表内,测试写在该处时会产生如原文的错误讯息 https://i.imgur.com/sYTtNEY.jpg如果是的话,请新增个模组,将宏写于该模组内,再执行看看如写于工作表内,而不改写到模组内的话,"auto_update"前则以完整档名!worksheet.codename(如工作表1).auto_update

Links booklink

Contact Us: admin [ a t ] ucptt.com