如何阻止Excel的「全部刷新」触发Worksheet_Change VBA事件

针对你遇到的「全部刷新」（SQL数据更新）会触发Worksheet_Change的问题，这里提供几种实用可靠的解决办法：

方案一：用全局变量标记刷新状态（推荐） #

这是最精准可控的方式，通过全局变量明确区分「用户手动修改」和「SQL刷新」两种触发场景：

1. 声明全局变量
   打开VBA编辑器，插入一个标准模块（不要放在工作表模块里），添加代码：

Public IsRefreshingSQL As Boolean ' 标记是否正在执行SQL数据刷新

2. 修改「全部刷新」按钮的宏
   找到绑定「全部刷新」的子程序，在刷新前后设置变量状态：

Sub 全部刷新()
    IsRefreshingSQL = True ' 刷新开始前标记状态
    
    ' 这里放你的SQL查询/数据刷新代码
    ' 示例：ActiveWorkbook.RefreshAll 或自定义的查询执行逻辑
    
    IsRefreshingSQL = False ' 刷新完成后重置状态
End Sub

3. 修改Worksheet_Change子程序
   在原有代码开头添加判断，若处于SQL刷新状态则直接跳过后续逻辑：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 新增：如果是SQL刷新导致的单元格变化，直接退出
    If IsRefreshingSQL Then
        On Error GoTo haveError
        Application.EnableEvents = True
        Exit Sub
    End If
    
    ' 以下保留你原有的代码逻辑
    On Error GoTo haveError
    Application.EnableEvents = False
    
    Dim change_range, change_cell As Range
    Dim notActive As Boolean
    Dim cell_count As Integer
    Dim changed_cell_array As Variant
    Set change_range = Application.Intersect(Target, Me.Range("A:G"))
    cell_count = 0
    
    ReDim changed_cell_array(3, 0)
    
    If change_range Is Nothing Then
        ' Cell update was not in range
    Else
        For Each change_cell In change_range.Cells
            If Not IsEmpty(change_cell) Then
                cell_count = cell_count + 1
                ReDim Preserve changed_cell_array(3, cell_count)
                
                changed_cell_array(0, cell_count) = Cells(change_cell.Row, 1).Value
                changed_cell_array(1, cell_count) = change_cell.Value
                changed_cell_array(2, cell_count) = change_cell.Row
                changed_cell_array(3, cell_count) = change_cell.Column
            End If
        Next change_cell
    End If
    
    Debug.Print CStr(cell_count) & " cells changed"
    RunPython "import testing2; testing2.pass_array(" & CStr(cell_count) & ")"
    
haveError:
    Application.EnableEvents = True
End Sub

方案二：通过单元格变化规模判断（备选） #

如果不想用全局变量，可以基于SQL刷新会批量修改大量单元格的特点，设置阈值判断：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 假设SQL刷新会修改超过100个单元格，根据实际情况调整阈值
    If Target.Cells.Count > 100 Then
        On Error GoTo haveError
        Application.EnableEvents = True
        Exit Sub
    End If
    
    ' 后续原有代码...

方案三：记录刷新时间对比（不推荐） #

如果前两种方案不适用，可以记录最近一次SQL刷新的时间，判断变化是否发生在刷新窗口期内：

1. 标准模块声明变量：

Public LastSQLRefreshTime As Date

2. 刷新按钮更新时间：

Sub 全部刷新()
    LastSQLRefreshTime = Now()
    ' 你的SQL刷新代码
End Sub

3. Worksheet_Change中判断：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 若变化发生在刷新后5秒内，跳过逻辑（可调整时间阈值）
    If Now() - LastSQLRefreshTime < TimeValue("00:00:05") Then
        On Error GoTo haveError
        Application.EnableEvents = True
        Exit Sub
    End If
    
    ' 后续原有代码...

注意：方案一的全局变量方法稳定性最高，能精准区分触发来源，不会误判用户的手动批量修改，优先推荐使用。

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