作者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/m.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