[算表] 巨集無法自動更新

作者: 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