Worksheet_Change多个更改

Question

我有以下问题。如果删除多个单元格或对多个单元格执行选择编辑，则会出现错误。我的代码如下；

    Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Value <> PreviousValue Then
    Sheets("log").Cells(80000, 1).End(xlUp).Offset(1, 0).Value = _
        Application.UserName & " heeft cel " & Target.Address _
        & " from " & PreviousValue & " to " & Target.Value & 
    End If

End Sub

我做错了什么？

Answer 1

如果Target是多单元格范围，则比较Target.Value <> PreviousValue将失败(Target.Value则为2D数组)。

使用循环比较每个单独的单元格：

Dim rng as Range
For Each rng in Target
     If rng.Value <> PreviousValue Then