IF 判断 问题

abc123qqq

一组代码，结果不准确。 时间累计，当结果超出限制范围时，进行判断 并修正至 合格值。 烦请看附件，帮助看看代码怎么修改，或者新的方法。

zjlive

没看明白需求

abc123qqq

黄色区域的时间，超出了 列表 里 大于0 的 时间段
就如 坐车，  排到你的时候，  说是 没有 车了，问  下一班   还是没有，  再 调整一小时后的一班 ， 还是没有 ....   直接到  8.00 了。  
    Sh.Cells(y, 16).Value = Sh.Cells(y, 15).Value + (3600 + Sh.Cells(y, x).Value) / 24 / 3600
这里的3600秒， 我本来是 向后加 3600秒， 出现了，  加了1小时， 还是 不满足要求 的情况  。  
需要将代码 改为，  计算的同时，对结果 进行  判断，  直至 输出  合格  数值为止。