如何让Excel单元格值滞后另一单元格一步变化？VBA实现求助

核心问题出在原值记录时机错误：Workbook_SheetSelectionChange会在选中单元格时就记录值，若用户选中后未修改就切换单元格，会导致Previous列被错误覆盖；而Worksheet_Change触发时，原值已被新值覆盖，无法正确获取上一次的Stock值。

以下是修正后的完整实现方案（假设Sheet1的Stock列为A列、Previous列为B列；Sheet2的Updated列为B列、Ordered列为C列、Stock列为A列，可根据实际列调整）：

步骤1：在Sheet1代码模块中添加代码 #

右键Sheet1标签→点击「查看代码」，在弹出的代码窗口粘贴以下代码：

' 用于存储选中Stock单元格的原值
Private prevStockValue As Variant

' 仅在选中Stock列（A列）单个单元格时记录当前值
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        prevStockValue = Target.Value
    Else
        prevStockValue = Empty
    End If
End Sub

' Stock列值变更时执行业务逻辑
Private Sub Worksheet_Change(ByVal Target As Range)
    ' 禁用事件避免循环触发
    Application.EnableEvents = False
    
    On Error GoTo ErrorHandler ' 捕获错误，确保事件能恢复
    
    ' 仅处理Stock列（A列）的单个单元格变更
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        Dim currentRow As Long
        currentRow = Target.Row
        
        ' 1. 更新Previous列（B列）为上一次的Stock值
        If Not IsEmpty(prevStockValue) Then
            Me.Cells(currentRow, 2).Value = prevStockValue
        End If
        
        ' 2. 更新Sheet2对应行的Updated列为当前日期
        Sheet2.Cells(currentRow, 2).Value = Date
        
        ' 3. Stock值低于150时标红
        If IsNumeric(Target.Value) And Target.Value < 150 Then
            Target.Interior.Color = RGB(255, 0, 0)
        Else
            Target.Interior.ColorIndex = xlColorIndexNone
        End If
        
        ' 4. Stock值较Previous增加≥50时，设置Sheet2对应行的Ordered列日期
        If IsNumeric(Target.Value) And IsNumeric(Me.Cells(currentRow, 2).Value) Then
            Dim valueDiff As Double
            valueDiff = Target.Value - Me.Cells(currentRow, 2).Value
            If valueDiff >= 50 Then
                Sheet2.Cells(currentRow, 3).Value = Date
            End If
        End If
    End If
    
ErrorHandler:
    Application.EnableEvents = True ' 恢复事件触发
    If Err.Number <> 0 Then
        MsgBox "错误：" & Err.Description, vbCritical
    End If
End Sub

关键修正点说明 #

• 精准记录原值：仅在选中Stock列单个单元格时记录值，避免无关操作干扰Previous列数据。
• 变更后立即更新Previous：在Worksheet_Change中用提前记录的prevStockValue更新Previous列，确保滞后一步的逻辑完全符合预期。
• 事件安全处理：添加错误捕获和Application.EnableEvents控制，避免VBA执行时触发循环，或因错误导致事件永久禁用。
• 数值合法性判断：增加IsNumeric判断，避免空值或非数值输入导致的计算错误。

配套Sheet2公式调整（可选） #

若Sheet2的Stock列需要同步Sheet1的Stock值，可简化公式为：

=IF(Sheet1!A2="", "", Sheet1!A2)

（原公式中的Sheet1!A2=0判断可根据实际业务需求保留）

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