如何使worksheet change事件规定区域中内用 批量复制粘贴多个单元格都能触发事件

Yvonne-Zhang

由于表格需要每周更新数据，需要在更新后跟踪更改而不共享工作簿（共享工作簿其他工作表的宏不能启用），就写了下面的这个事件，当更改单元格时，会显示批注解释单元格做了什么更改。
问题：这个事件只能一个单元格一个单元格输入来触发事件，无法批量复制粘贴来同时每个单元格都触发事件，请问怎么修改才能实现可复制粘贴并且每个单元格都能触发此事件呢？

效果

Private Sub Worksheet_Change(ByVal Target As Range)
    Const xRg As String = "A1:ZZ1000"
    Dim strOld As String
    Dim strNew As String
    Dim strCmt As String
    Dim xLen As Long
    With Target(1)
        If Intersect(.Cells, Range(xRg)) Is Nothing Then Exit Sub
        strNew = .Text
        Application.EnableEvents = False
        Application.Undo
        strOld = .Text
        .Value = strNew
        Application.EnableEvents = True
        strCmt = "Edit: " & Format$(Now, "dd Mmm YYYY hh:nn:ss") & " by " & _
        Application.UserName & Chr(10) & "Previous Text :- " & strOld
        If Target(1).Comment Is Nothing Then
            .AddComment
        Else
            xLen = Len(.Comment.Shape.TextFrame.Characters.Text)
        End If
        With .Comment.Shape.TextFrame
            .AutoSize = True
            .Characters(Start:=xLen + 1).Insert IIf(xLen, vbLf, "") & strCmt
        End With
    End With
End Sub

Yvonne-Zhang

朱荣兴 发表于 2018-8-22 08:01
根本就是两个思路的问题

可否只关注后面的问题，有没有办法修改一下宏增加循环或者改变change事件什么的，使复制粘贴的所有单元格都能显示追踪更改批注呢？感谢版主

Yvonne-Zhang

http://club.excelhome.net/forum. ... p;page=1#pid7881591和这个帖子有类似的问题，希望能有所启发

zhenghui13

可以用Target.Count来判断单元格数据，然后进行遍历更改区域。
下面是我测试的显示单元格地址的代码，你可以将判断条件加入自己的代码中.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    Debug.Print Target.Address
ElseIf Target.Count > 1 Then
    For Each Rng In Target
        Debug.Print Rng.Address
    Next
End If
End Sub

Yvonne-Zhang

zhenghui13 发表于 2018-8-22 10:33
可以用Target.Count来判断单元格数据，然后进行遍历更改区域。
下面是我测试的显示单元格地址的代码，你可 ...

非常感谢这个好思路，但是我尝试加进入之后还是没有办法复制粘贴，不知道是不是加的位置不对，刚开始学习，请多多指教，应该加进去放哪里做哪些修改呢，谢谢

zhenghui13

Yvonne-Zhang 发表于 2018-8-22 11:53
非常感谢这个好思路，但是我尝试加进入之后还是没有办法复制粘贴，不知道是不是加的位置不对，刚开始学习 ...

没有附件不太好理解你在的效果。可否上传附件(ZIP)，然后做个效果。

Yvonne-Zhang

http://club.excelhome.net/forum. ... ead&tid=1012416
http://club.excelhome.net/thread-968069-1-1.html
http://tieba.baidu.com/p/3803284473
http://club.excelhome.net/thread-894271-1-1.html
这些也是同样类似的问题，可以参考一下

Yvonne-Zhang

http://club.excelhome.net/forum. ... ead&tid=1012416同类型的问题

Yvonne-Zhang

zhenghui13 发表于 2018-8-22 13:51
没有附件不太好理解你在的效果。可否上传附件(ZIP)，然后做个效果。

附件已上传，感谢感谢