VBA循环命令每次运行均崩溃问题排查求助

你的宏崩溃的核心原因是多层无限死循环，没有任何退出循环的逻辑，导致Excel资源耗尽、无法响应：

• 外层Do While Range("e9") = True：只要E9为True，就会无限循环，且循环内没有修改E9值的代码，永远无法退出。
• 内层Do While Range("c8") >= 1/Do While Range("c8") < 0：一旦进入循环，只会重复修改C10的值，但完全没有改变C8的逻辑，导致循环永远无法终止。

结合你的需求（进度到100%时提升等级），以下是两种可行的修复方案：

方案1：单次检测（手动触发执行一次逻辑） #

适合需要手动启动宏、检测当前进度并执行等级调整的场景：

Sub Check_Progress_Once()
    ' 假设C8为进度值，1代表100%
    If Range("C8").Value >= 1 Then
        ' 进度达100%，等级+1
        Range("C10").Value = Range("C10").Value + 1
        ' 可选：重置进度为0，避免重复触发等级提升
        Range("C8").Value = 0
    End If
    
    ' 可选：处理进度低于0的降级逻辑
    If Range("C8").Value < 0 Then
        Range("C10").Value = Range("C10").Value - 1
        ' 可选：重置进度为0
        Range("C8").Value = 0
    End If
End Sub

方案2：持续自动检测（后台实时监控） #

适合需要实时监控进度、自动触发等级调整的场景，加入DoEvents让Excel保持响应，同时支持手动停止：

Sub Check_Progress_Continuous()
    Do
        ' 让Excel能响应其他操作（比如按ESC停止宏）
        DoEvents
        
        ' 检测进度达100%
        If Range("C8").Value >= 1 Then
            Range("C10").Value = Range("C10").Value + 1
            Range("C8").Value = 0 ' 重置进度
            ' 可选：延迟1秒，避免短时间内重复触发
            Application.Wait Now + TimeValue("00:00:01")
        End If
        
        ' 检测进度低于0
        If Range("C8").Value < 0 Then
            Range("C10").Value = Range("C10").Value - 1
            Range("C8").Value = 0 ' 重置进度
            Application.Wait Now + TimeValue("00:00:01")
        End If
        
        ' 当E9为False时停止检测
        If Not Range("E9").Value Then Exit Do
    Loop
End Sub

提示：要停止持续检测，只需将E9单元格改为False，或者按ESC键中断宏运行。

内容的提问来源于stack exchange，提问作者kekuwi