VBA自动计时如何不占用线程