[求助]帮改进代码

lqif928

在操作工作表单元格增加或修改时，在日志工作表内会记录：

操作时间

原值

修改后

操作单元格

问题：在操作工作表进行修改时只能逐个单元格进行操作，日志要作表才会记录相关的信息，多个单元格同时操作时会提示出且不进行记录。如何实现多单元格(任意单元格组合录入）进行操作时，日志工作表仍照常进行记录相关的信息。（如A1：B5单元格同时录入时，在日志工作表操作单元格列会记录：$A$1:$B$5

代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("日志")
If XX <> Target Then
 ROW1 = Sheets("日志").[A65536].End(xlUp).Row + 1
 .Cells(ROW1, 1) = Now
 .Cells(ROW1, 2) = XX
 .Cells(ROW1, 3) = Target.Value
 .Cells(ROW1, 4) = Target.Address
 End If
 End With
End Sub

具体见附件

5X044LZI.rar (9.75 KB, 下载次数: 6)

2008-7-8 12:22 上传

点击文件名下载附件
[求助]帮改进代码

蓝桥玄霜

c1W0z4o7.rar (13.13 KB, 下载次数: 16)

2008-7-8 19:45 上传

点击文件名下载附件
[求助]帮改进代码

lqif928

谢谢蓝桥玄霜

zsd5237

学习

蓝桥玄霜 发表于 2008-7-8 19:45

谢谢老师