Excel VBA问题：如何获取列名及单元格旧值完善变更日志

问题解决思路 #

你的代码已实现基础变更记录，但要补充列名和旧值，需两个关键调整：

• 列名获取：通过单元格列号匹配表头行内容（默认表头在第1行，可自行调整）
• 旧值捕获：利用SheetSelectionChange事件提前记录选中单元格的原始值——因为SheetChange触发时，Target已更新为修改后的值

修改后的完整代码 #

将以下代码替换原有Workbook模块代码：

' 模块级变量，跨事件存储选中单元格的旧值
Private OldValue As Variant

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name <> "logdetails" Then
        ' 仅处理单个单元格变更（需支持多单元格可扩展循环）
        If Target.Cells.Count = 1 Then
            OldValue = Target.Value
        End If
    End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim logSheet As Worksheet
    Dim nextRow As Long
    
    ' 跳过logdetails自身的变更
    If Sh.Name = "logdetails" Then Exit Sub
    
    Application.EnableEvents = False
    
    Set logSheet = ThisWorkbook.Sheets("logdetails")
    nextRow = logSheet.Cells(logSheet.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 写入日志内容
    logSheet.Cells(nextRow, "A").Value = Sh.Name & "-" & Target.Address(0, 0)
    logSheet.Cells(nextRow, "B").Value = Sh.Cells(1, Target.Column).Value ' 取第1行作为表头
    logSheet.Cells(nextRow, "C").Value = OldValue
    logSheet.Cells(nextRow, "D").Value = Target.Value
    logSheet.Cells(nextRow, "E").Value = Environ("username")
    logSheet.Cells(nextRow, "F").Value = Now
    
    logSheet.Columns("A:F").AutoFit
    
    Application.EnableEvents = True
End Sub

关键细节说明 #

• 模块级变量OldValue：必须声明在Workbook模块顶部（所有事件之外），才能在两个事件间传递值
• 列名适配：若表头不在第1行，将Sh.Cells(1, Target.Column).Value中的1改为实际表头行号
• 多单元格扩展：如需处理批量修改，可在SheetChange中加入循环遍历Target的每个单元格，同时在SheetSelectionChange中存储数组形式的旧值
• 容错优化：可按需添加错误处理语句，避免因单元格格式（如公式、空值）导致的报错

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