Excel VBA – 在Excel中手动更改单元格的旧值时更改日志

我想添加详细的日志，当工作表1中的单元格值发生变化时，对工作表“审计”进行更改。但是，如果在空白单元格中input值，则不应logging更改。 我正在处理下面的代码，但无法删除空白单元格更改日志。

Option Explicit Const LiveWS As String = "Sheet1" Const AuditWS As String = "Audit" Private Sub Workbook_Open() Dim iRow As Integer Dim iCol As Integer Dim iLastRow As Long For iRow = 9 To 20 For iCol = 4 To 22 If Sheets(AuditWS).Cells(iRow, iCol).Value <> Sheets(LiveWS).Cells(iRow, iCol).Value Then iLastRow = Sheets(AuditWS).Cells(Rows.Count, 1).End(xlUp).Row Sheets(AuditWS).Cells(iLastRow + 1, 1) = "Cell(" & CStr(iRow) & "," & CStr(iCol) & ") " _ & "changed from '" & Sheets(AuditWS).Cells(iRow, iCol).Value & "' " _ & "to '" & Sheets(LiveWS).Cells(iRow, iCol).Value & "'" Sheets(AuditWS).Cells(iRow, iCol) = Sheets(LiveWS).Cells(iRow, iCol).Value End If Next iCol Next iRow iLastRow = Sheets(AuditWS).Cells(Rows.Count, 1).End(xlUp).Row Sheets(AuditWS).Cells(iLastRow + 1, 1) = "Workbook opened by " & Environ("USERNAME") _ & " on " & Format(Now(), "dd/mm/yyyy") & " at " & Format(Now(), "hh:nn:ss") ActiveWorkbook.Save End Sub 

Answer 1

您可以列出事件来跟踪更改。 在你的sheet1后面尝试这样的事情

 Option Explicit Public bLog As Boolean Private Sub Worksheet_Change(ByVal Target As Range) If bLog Then ''''' YOUR Logging code here or a call to logging routine End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) bLog = Not IsEmpty(Target.Value2) End Sub