作者liquidbox (树枝摆摆)
看板Office
标题[算表] 巨集无法自动更新
时间Mon Jul 23 11:14:49 2018
软体: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有什麽另外要注意的地方吗？
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.220.69.237
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1532315692.A.612.html
1F：→ soyoso: 是否将巨集写在工作表内，测试写在该处时会产生如原文的错 07/23 11:52
3F：→ soyoso: 如果是的话，请新增个模组，将巨集写於该模组内，再执行看 07/23 11:54
4F：→ soyoso: 看 07/23 11:54
5F：→ soyoso: 如写於工作表内，而不改写到模组内的话，"auto_update"前 07/23 12:29
6F：→ soyoso: 则以完整档名!worksheet.codename(如工作表1).auto_update 07/23 12:30
已解决，真的是没把VBA写在模组里的关系，
以前都没注意到，谢谢！
※ 编辑: liquidbox (61.220.69.237), 07/23/2018 12:33:56