Excel VBA需求：修改前置任务后自动更新开始日期

实现代码与逻辑 #

要达成你需要的功能，可借助Excel的Worksheet_Change内置事件，当G列（Predecessor）单元格内容被修改时自动触发更新逻辑：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim predecessorID As Variant
    Dim matchRow As Long
    Dim targetRow As Long
    
    ' 仅处理G列的单个单元格修改，避免批量操作报错
    If Not Intersect(Target, Me.Columns("G")) Is Nothing And Target.Cells.Count = 1 Then
        targetRow = Target.Row
        predecessorID = Target.Value
        
        ' 跳过表头行（假设表头在第1行，可根据实际调整）
        If targetRow = 1 Then Exit Sub
        
        ' 在A列（ID列）查找匹配的前置任务ID
        matchRow = Application.Match(predecessorID, Me.Columns("A"), 0)
        
        ' 找到匹配项后，更新当前行的Start Date（D列）
        If Not IsError(matchRow) Then
            Me.Cells(targetRow, "D").Value = Me.Cells(matchRow, "E").Value + 1
            ' 可选：统一日期显示格式
            Me.Cells(targetRow, "D").NumberFormat = "yyyy-mm-dd"
        End If
    End If
End Sub

关键部分说明 #

• Worksheet_Change事件：工作表单元格内容修改时自动触发，是实现实时更新的核心。
• Intersect判断：确保只有G列的修改会触发逻辑，避免无关操作干扰。
• Application.Match：快速定位A列中与前置任务ID匹配的行，比循环查找效率更高。
• 日期更新：直接将匹配行的End Date（E列）加1天，赋值给当前行的Start Date（D列）。

使用注意事项 #

• 代码必须粘贴到对应工作表的代码窗口（右键工作表标签→查看代码，再粘贴代码），不能放在标准模块中。
• 若你的表头不在第1行，需修改If targetRow = 1 Then Exit Sub中的行号。
• 当前代码仅支持单个前置任务ID，若需处理多ID（如逗号分隔），需额外添加拆分ID的逻辑。

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