将零注册为审计跟踪的变更

Question

我对VBA相当陌生，并设法将FISH枚举表的审核日志整理到一起。唯一的问题是0（有效分数）不会在空白单元格中注册为更改。我将数据验证设置为仅允许输入某些值，因此无法将单元格的格式更改为文本。如果有人可以帮助我插入代码以将零注册为更改，那将很好。我正在使用的代码如下

Dim PreviousValue

Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

Dim i As Long
Dim ws As Worksheet

Set ws = Sheets("Audit Trail")

i = ws.Range("A" & Rows.Count).End(xlUp).Row + 1

If Target.Value <> PreviousValue Then
With ws
    .Range("A" & i).Value = Application.UserName
    .Range("B" & i).Value = ActiveSheet.Name & "-" & Target.Address
    .Range("C" & i).Value = PreviousValue
    .Range("D" & i).Value = Target.Value
    .Range("E" & i).Value = Format(Now(), "dd-mmm-yyyy, hh:mm:ss")
    Sheets("Audit Trail").Columns("A:E").AutoFit
End With
End If
End Sub

预先感谢您的帮助，如果有帮助，我正在使用Office 2010