[已解决]excel修改历史记录(日志)的运行错误

glhfgtd

用了几周在论坛中发现的excel修改历史记录，突然发现，当同时选择两个或以上单元格后，若进行单元格的改动就会出现代码运行错误，请见附件，特此求教大家给予更正完善， 十分感谢{:30:}。

11120414498526.rar

最佳答案

月排行榜 / 总排行榜

爱疯

2012-2-7 18:27

glhfgtd 发表于 2012-2-7 10:36
我的意思是说：多个单元格选择起来后，无论是Tab逐个改动单元格，或是用复制粘贴功能集体改动，代码都可正常 ...

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim x As Range
   
4.     Dim r As Long
   
5.     '保存新值
   
6.     For Each x In Target
   
7.         With Sheets("日志")
   
8.             r = .[A65536].End(xlUp).Row + 1
   
9.             .Cells(r, 1) = Time
   
10.             .Cells(r, 3) = x.Value
    
11.             .Cells(r, 4) = x.Address
    
12.         End With
    
13.     Next x
    
14. End Sub
    
15. 
    
16. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
17.     Dim y As Range
    
18.     Dim r As Integer
    
19.     '保存原值
    
20.     For Each y In Target
    
21.         With Sheets("日志")
    
22.             .Cells(.[b65536].End(xlUp).Row + 1, 2) = y
    
23.         End With
    
24.     Next y
    
25. End Sub

复制代码

记录你的修改2.rar (10.56 KB, 下载次数: 107)

2012-2-7 18:26 上传

点击文件名下载附件 这样吗

跳转到最佳答案楼层

fjmxwrs

你是说把多个单元格选择起来，改成一样的？

glhfgtd

我的意思是说：多个单元格选择起来后，无论是Tab逐个改动单元格，或是用复制粘贴功能集体改动，代码都可正常运行。

爱疯

glhfgtd 发表于 2012-2-7 10:36
我的意思是说：多个单元格选择起来后，无论是Tab逐个改动单元格，或是用复制粘贴功能集体改动，代码都可正常 ...

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim x As Range
   
4.     Dim r As Long
   
5.     '保存新值
   
6.     For Each x In Target
   
7.         With Sheets("日志")
   
8.             r = .[A65536].End(xlUp).Row + 1
   
9.             .Cells(r, 1) = Time
   
10.             .Cells(r, 3) = x.Value
    
11.             .Cells(r, 4) = x.Address
    
12.         End With
    
13.     Next x
    
14. End Sub
    
15. 
    
16. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
17.     Dim y As Range
    
18.     Dim r As Integer
    
19.     '保存原值
    
20.     For Each y In Target
    
21.         With Sheets("日志")
    
22.             .Cells(.[b65536].End(xlUp).Row + 1, 2) = y
    
23.         End With
    
24.     Next y
    
25. End Sub

复制代码

记录你的修改2.rar (10.56 KB, 下载次数: 107)

2012-2-7 18:26 上传

点击文件名下载附件 这样吗

glhfgtd

谢谢，基本上达到了我想要的效果。

bauosj

你好，
1.原值和修改后的值不对应
2.同时删除多个时有的没有记录

bauosj

多列同时删除时不能保留原值

kluivertlch

爱疯 发表于 2012-2-7 18:27
这样吗

版主，请问

•             .Cells(r, 4) = x.Address
  

这段，我不是要求返回修改的单元格地址，是返回这个单元所在行的第一列的数值

请问该怎么写呢？谢谢了，比较急的

爱疯

kluivertlch 发表于 2013-9-12 19:59
版主，请问

            .Cells(r, 4) = x.Address
这段，我不是要求返回修改的单元格地址，是返回这 ...

            .Cells(r, 4) = Cells(x.Row, 1)


是这样吗

kluivertlch

谢谢~~~！是的