如何在VBA Worksheet_Change事件中整合If Not Intersect实现公式转事件

我们可以通过Intersect限定触发代码的单元格范围，同时把Q列的公式逻辑转换成VBA代码嵌入原有事件中，以下是修改后的完整实现：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim DWHRowNum As Long
    Dim dt As Date
    Dim qRow As Long
    
    ' 定义触发逻辑的目标列：F列（原功能依赖）、G/M/N列（Q列逻辑依赖）
    Dim triggerRanges As Range
    Set triggerRanges = Union(Me.Columns("F"), Me.Columns("G"), Me.Columns("M"), Me.Columns("N"))
    
    ' 仅当编辑单元格在指定范围内时执行后续逻辑
    If Not Intersect(Target, triggerRanges) Is Nothing Then
        Application.EnableEvents = False
        On Error GoTo Cleanup ' 确保出错时恢复事件响应
        
        dt = Date ' 直接获取系统日期，Excel会自动处理显示格式
        
        ' 原有仓库日期时间设置逻辑（简化分组）
        DWHRowNum = 2
        Do Until Me.Cells(DWHRowNum, 2).Value = ""
            Select Case Me.Cells(DWHRowNum, 6).Value
                Case "ABQ1", "CLE2", "DEN3", "GEG1", "LIT1", "ORD5", "ORF3", "PAE2", "PCW1", "SLC1"
                    Me.Cells(DWHRowNum, 7).Value = dt
                    Me.Cells(DWHRowNum, 8).Value = "17:00"
                Case "BFI4", "DEN4", "PDX9", "SMF1"
                    Me.Cells(DWHRowNum, 7).Value = dt + 1
                    Me.Cells(DWHRowNum, 8).Value = "04:30"
            End Select
            DWHRowNum = DWHRowNum + 1
        Loop
        
        ' 复刻Q列原公式逻辑：=IF(G2="","",IF(AND(M2="",N2>G2),"Future","Current"))
        For qRow = 2 To 28
            If Me.Cells(qRow, "G").Value <> "" Then
                If Me.Cells(qRow, "M").Value = "" And Me.Cells(qRow, "N").Value > Me.Cells(qRow, "G").Value Then
                    Me.Cells(qRow, "Q").Value = "Future"
                Else
                    Me.Cells(qRow, "Q").Value = "Current"
                End If
            Else
                Me.Cells(qRow, "Q").Value = ""
            End If
        Next qRow
        
Cleanup:
        Application.EnableEvents = True
        If Err.Number <> 0 Then MsgBox "运行出错：" & Err.Description
    End If
End Sub

关键细节说明： #

• Intersect范围限定：通过Union合并所有需要触发逻辑的列，只有编辑这些列的单元格时才执行代码，避免无意义的资源消耗。
• 精简原代码结构：将相同日期时间规则的仓库代码归为一组，减少冗余代码，后续维护更便捷。
• 公式转VBA逻辑：用原生VBA条件语句替代单元格公式，避免因单元格引用变动导致的计算错误，同时让数据状态更可控。
• 错误防护机制：添加错误捕获，确保即使代码运行出错，也能恢复Application.EnableEvents，防止Excel事件响应功能被意外锁定。

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