可以用test启动定时sub test()Application.OnTime Now + TimeValue("00:00:01"), "test"end sub用Application.OnTime Now + TimeValue("00:00:01"), "test",,false停止定时
有个 ontime 方法
