从循环调用VBA中的倒计时计时器

我想为for循环的每次迭代从子程序调用一个倒计时；其中，计时器的持续时间基于它从循环通过的范围内的单元格中拾取的值

例如，单元格A1:A5的值分别为15,15,20,20,30。我想运行一个宏，基本上从A1开始，捕获15，然后启动一个倒计时15秒，当它达到0时，它移动到A2并重复这个过程

它没有按预期工作

当我执行主例程在上述范围内循环，并为该范围内的每个单元格调用Start_Timer例程（该例程依次调用下一个_矩例程，直到计时器达到零并退出sub）时，它似乎在该范围内完美循环，并拾取持续时间

但是，当调用Start_Timer例程时，它不会执行计时器倒计时，直到循环完全完成，并且当它执行时，计时器不会在秒间隔内减少

但是，如果我在循环外调用Start_Timer，计时器将正常工作，但它显然只运行倒计时一次

有什么想法吗

---

我尝试在通话前后使用DoEvents启动计时器，但什么都没有。

没关系。我想出了如何让它做我需要做的事情。现在，我需要找出如何通过单击其他按钮来中断/暂停计时器。

考虑添加一些代码。也要避免感谢和类似的玩笑。如果有人在这个论坛上帮助你，他们已经在做了。