sub A()
do
if right time then
call B()
end if
doevents()
loop
end sub

基本上B不用呼叫A 因为A又没结束而RIGHT TIME那行不能用等于 不然有可能不会执行到比较合适的作法是把年月日时分秒都加上去 超过就执行执行完更新时间至下一时间点即可

谢谢Y大 我大概懂了因为我不确定VBA是不是也是使用stack callback这类感觉有点像script语言 RUN过就结束了 不会跳回去@@看来function的call stack 在VBA还是成立的

目前所有语言CALL FUNCTION基本上都是会回去的...

抱歉询问一下 如果用application.ontime 设定执行时间把这行做Loop就可以了吗?

算是吧 一个程式固定Loop就可以了 但我认为要设离开方式