Excel VBA修改单元格字号切换闪屏，求优化方案

问题根源 #

你当前使用的Worksheet_SelectionChange事件触发时机不合理——它会在选中单元格变化时执行，而非单元格数值变化的瞬间。这导致修改N18/N19后，需要等到选中状态改变才会触发字号调整，期间Excel已经完成界面刷新，从而出现旧字号短暂显示的闪烁现象。同时，该事件每次选中单元格都会执行冗余代码，进一步加重了界面更新的延迟。

优化方案 #

1. 更换触发事件为Worksheet_Change #

该事件会在单元格内容发生变化时立刻触发，能精准捕捉N18/N19的数值变动，避免不必要的触发时机。

2. 缩小触发范围 #

仅当变动的单元格是N18或N19时才执行字号调整逻辑，减少无效代码运行。

3. 增强界面控制 #

除关闭屏幕更新外，额外关闭事件触发（防止代码执行过程中重复触发Change事件），确保代码执行期间界面不会意外刷新。

修改后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当变动的是N18或N19时执行逻辑
    If Not Intersect(Target, Me.Range("N18:N19")) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False ' 关闭事件触发，避免递归风险

        ' 用Me代表当前代码所在工作表，无需硬编码表名
        If Me.Range("N18").Value > 0 And Me.Range("N19").Value > 0 Then
            Me.Range("F23").Font.Size = 21
        Else
            Me.Range("F23").Font.Size = 23
        End If

        Application.EnableEvents = True ' 恢复事件触发
        Application.ScreenUpdating = True
    End If
End Sub

额外说明 #

• 使用Me代替Worksheets("MOVIM. MONETE")，确保代码绑定到目标工作表时无需修改表名，安全性更高。
• 关闭EnableEvents是为了避免后续操作意外触发事件递归，养成该习惯能有效减少程序异常。

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