根据另一个单元格的行值显示一个单元格的值。日志跟踪

Question

我正在尝试创建用于版本跟踪的电子表格，但有一个单独的表格来捕获对第一个表格的更改，并且需要包含一些额外的信息。这是当前正在运行的脚本。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Log" Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
With Sheets("Log").Cells(Rows.Count, 1).End(xlUp)

    .Offset(1, 0).Value = Environ("UserName")
    .Offset(1, 1) = Sh.Name
    .Offset(1, 3) = Target.Address
    .Offset(1, 4) = "'" & Target.Formula
    .Offset(1, 5) = Previous
    Previous = ""
    .Offset(1, 6) = Now
End With
Application.EnableEvents = True

结束子

被修改的单元格在第 3 列中被捕获为 Target.Address。我希望能够引用 Target.Address's Row 并在第一张表的同一行上显示 A 列的值。 .

例如：在工作表 1 上修改了单元格 D7。日志表显示 $D$7 作为目标地址的值。在另一个单元格中，我想知道 A7 的值是什么，target.address 的行是 7。当我尝试不同的公式时，它将位于示例中缺少的 .Offset(1, 2) = 位置而不是使用 vba。

恐怕很难找到正确的问题或措辞。

任何建议将不胜感激！ 提前谢谢你，

Answer 1

处理多个更改的单元格：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Const LOG_SHEET As String = "Log"

    Dim c As Range

    If Sh.Name = LOG_SHEET Then Exit Sub

    For Each c In Target.Cells

        With Sheets(LOG_SHEET).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).EntireRow

            .Cells(1).Value = Environ("UserName")
            .Cells(2).Value = c.EntireRow.Cells(1).Value 'server name
            .Cells(3).Value = Sh.Name
            .Cells(4) = c.Address(False, False)
            .Cells(5) = "'" & c.Value
            .Cells(6) = Now

        End With

    Next c

End Sub

您无需在此处禁用事件，因为“如果日志表退出”行会处理此问题。

Answer 2

您可以仅使用Target.Value2 属性来处理更改的值。您的脚本将如下所示：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "Log" Then Exit Sub
    Application.EnableEvents = False
    On Error Resume Next
    With Sheets("Log").Cells(Rows.Count, 1).End(xlUp)

        .Offset(1, 0).Value = Environ("UserName")
        .Offset(1, 1) = Sh.Name
        .Offset(1, 2) = Target.Value2
        .Offset(1, 3) = Target.Address
        .Offset(1, 4) = "'" & Target.Formula
        .Offset(1, 5) = Previous
        Previous = ""
        .Offset(1, 6) = Now
    End With
    Application.EnableEvents = True
End Sub