从Worksheet_Change函数中排除单元格范围

Question

目前，我正在尝试建立一个扩展表，它将允许我跟踪办公室中的任何人每次更改其中的任何信息，我已经通过以下代码来处理这个问题：

Dim PreviousValue

 Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Value <> PreviousValue Then
    Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = _
        Application.UserName & " changed cell " & Target.Address _
        & " from " & PreviousValue & " to " & Target.Value
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 PreviousValue = Target.Value
End Sub

记录对工作簿中所有单元格的任何更改。不过，我也有这样的代码：-

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Sheets("MEP 01").Range("D5").Value = Date
 Sheets("MEP 01").Range("E5").Value = Time
End Sub

这将记录最后一次保存文档时，我想知道是否有任何方法可以从审计代码中删除单元格D5和E5，因为这两个单元格以及D4 (包含= way ()公式)将经常更改，使我的审计跟踪变得相当大。

任何帮助都将不胜感激。

Answer 1

在您的Workbook_BeforeSave中添加：

Application.EnableEvents = False

在更改工作表之前--，但请确保添加

Application.EnableEvents = True

在结束分庭之前。

这将防止触发Worksheet_Change事件，因此不会将任何内容写入日志。

Answer 2

经过更多的搜索，我找到了这个查询的答案：-

要从Worksheet_Change函数中排除某些单元格，只需为有关单元添加以下代码行：

 If Target.Address = "Cell number" Then Exit Sub

最终代码将如下所示：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$5" Then Exit Sub
If Target.Address = "$E$5" Then Exit Sub
''Excludes cells D5 and E5 from Worksheet_Change call''
If Target.Value <> PreviousValue Then
    Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = _
        Application.UserName & " changed cell " & Target.Address _
        & " from " & PreviousValue & " to " & Target.Value
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PreviousValue = Target.Value
 End Sub

我相信这里的人将能够使这段代码看起来更整洁，尽管它可以完成我需要它做的事情。

Answer 3

您可以在您的情况下使用Intersect：

 Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Value <> PreviousValue AND Intersect(Target, Range("D4,D5,E5")) Is Nothing Then
    Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = _
        Application.UserName & " changed cell " & Target.Address _
        & " from " & PreviousValue & " to " & Target.Value
  End If