VBA中Application.ScreenUpdating失效问题求助

核心原因分析 #

1. SendKeys的强制界面触发：SendKeys "{F2}"和SendKeys "{ENTER}"是模拟用户手动操作，会直接绕过Application.ScreenUpdating = False的限制，强制Excel更新界面显示编辑状态，导致你能看到操作过程。
2. Range.Select的界面聚焦：使用Select方法选中单元格区域，会触发Excel的选中状态更新，打破界面禁用的效果。
3. RefreshAll的潜在UI重绘：即使禁用了Power Query的后台刷新，RefreshAll执行时若涉及表结构或数据的变更，仍可能触发Excel的界面重绘。

解决方法与优化代码 #

替换SendKeys和Select的操作逻辑，同时强化界面禁用的辅助设置，代码如下：

Sub RefreshAndActivateHyperlinks()
    ' 禁用所有可能触发界面更新的设置
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    
    ' 执行数据刷新并等待完成
    ActiveWorkbook.RefreshAll
    DoEvents
    
    ' 遍历Power Query表数据区域，激活超链接（无需选中单元格）
    Dim rCell As Range
    With ActiveSheet.ListObjects("ControlTable").DataBodyRange
        If Not .IsEmpty Then
            For Each rCell In .Cells
                ' 强制Excel重新识别单元格内的超链接，替代SendKeys操作
                rCell.Value = rCell.Value
            Next rCell
        End If
    End With
    
    ' 恢复Excel默认设置
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

代码关键点说明 #

• 用rCell.Value = rCell.Value替代SendKeys：该操作会让Excel重新解析单元格内容，自动激活其中的超链接，且不会触发界面更新。
• 移除Select操作：直接通过DataBodyRange遍历表的数据区域，避免选中单元格带来的界面聚焦。
• 新增辅助禁用设置：EnableEvents防止刷新时触发事件导致的界面波动，xlCalculationManual减少计算过程中的UI更新。
• DoEvents：确保RefreshAll完全执行完成后再处理单元格，避免数据未刷新就操作。

额外排查点 #

• 确认单个Power Query的刷新设置：进入Power Query编辑器，检查每个查询的属性，确保未勾选“启用背景刷新”。
• 避免宏执行过程中出现MsgBox、Debug.Print等可能强制刷新界面的代码。

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