如何在用户编辑单元格或公式栏时暂停Excel宏执行？

你的test_routine宏在运行时，只要进入单元格编辑模式（比如单击单元格后直接输入、点击公式栏）就会中断，之前的代码只处理了双击单元格的场景，没法覆盖所有编辑情况。

可以通过在宏的循环中主动检测Excel的编辑状态，实现用户输入时暂停宏、退出编辑后继续执行的效果，修改后的代码如下：

Sub test_routine()
    Dim cell As Range
    
    Range("test_range").ClearContents
    
    For Each cell In Range("test_range")
        ' 检测是否处于编辑模式，是则等待直到退出
        Do While Application.EditMode
            DoEvents ' 让Excel响应用户操作，避免卡住
        Loop
        
        DoEvents
        Application.Wait Now + TimeValue("00:00:01")
        cell.Value = "input"
    Next
End Sub

代码说明 #

• Application.EditMode会返回True，当Excel处于单元格编辑、公式栏编辑等状态时
• 外层Do While循环会持续等待，直到用户退出编辑模式（比如按Enter/Esc确认或取消编辑，或者点击其他单元格退出）
• 循环内的DoEvents确保Excel能正常响应用户的操作，不会出现界面卡死的情况

原代码无效的原因 #

你之前的事件监听代码只覆盖了双击单元格和选中单元格的场景，无法捕捉到单击单元格后直接输入、点击公式栏这些进入编辑模式的操作；而且宏本身的循环没有暂停逻辑，所以还是会被系统中断。

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