Excel VBA代码运行时工作表闪烁，如何仅显示活动工作表？

针对你的场景，代码运行时切换到VBARefSht导致界面闪烁，可通过以下几种方式解决，优先推荐前两种组合使用：

1. 禁止激活目标工作表，直接引用数据 #

多数闪烁问题源于代码中使用了.Activate或.Select切换工作表，实际上完全可以直接通过工作表对象读取VBARefSht的数据，无需切换界面。

错误示例（会导致闪烁）： #

Sheets("VBARefSht").Activate
Set validProducts = Range("C2:C20") ' 依赖激活的工作表

修正后代码（无界面切换）： #

' 直接通过工作表对象引用，无需激活
Set validProducts = ThisWorkbook.Worksheets("VBARefSht").Range("C2:C20")

2. 禁用屏幕更新 #

在代码执行期间关闭Excel的屏幕更新功能，执行完成后恢复，即使有后台工作表操作，界面也不会闪烁。同时要配合错误处理，避免意外导致屏幕更新长期关闭。

示例代码： #

Sub FacilityCheck()
    ' 保存原屏幕更新状态，避免覆盖用户设置
    Dim originalScreenState As Boolean
    originalScreenState = Application.ScreenUpdating
    
    ' 关闭屏幕更新
    Application.ScreenUpdating = False
    
    ' 错误捕获，确保无论是否出错都能恢复屏幕更新
    On Error GoTo Cleanup
    
    ' --------------------------
    ' 你的核心业务代码逻辑
    ' 比如读取VBARefSht的验证规则、处理当前工作表数据等
    Dim dateRange As Range
    Set dateRange = ThisWorkbook.Worksheets("VBARefSht").Range("A1:A10")
    ' ...其他代码
    ' --------------------------

Cleanup:
    ' 恢复原屏幕更新状态
    Application.ScreenUpdating = originalScreenState
    ' 如果有错误，可选择重新抛出以便排查
    If Err.Number <> 0 Then Err.Raise Err.Number
End Sub

3. 隐藏配置工作表（可选） #

如果VBARefSht仅作为配置表，无需用户查看或编辑，可将其设置为隐藏状态，即使代码访问它，界面也不会显示切换。

手动设置： #

右键VBARefSht工作表标签 → 选择「隐藏」

代码设置（适合批量部署）： #

' 普通隐藏（用户可通过右键取消隐藏）
ThisWorkbook.Worksheets("VBARefSht").Visible = xlSheetHidden

' 深度隐藏（仅能通过VBA编辑器取消隐藏）
ThisWorkbook.Worksheets("VBARefSht").Visible = xlSheetVeryHidden

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