[已解决]求代码，单元格修改记录相关

beyond_free · 发表于 2012-10-15 01:02

急求，希望大师们帮忙，谢谢了，本人还是VBA的初学者。

求代码.rar (8.24 KB, 下载次数: 12)

hwc2ycy · 发表于 2012-10-15 07:27

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column() = 4 Then Cancel = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iCol, i&, iLastcol, iSpace, arr, iRow
If Target.Column() <> 4 And Target.Offset(0, -1) = "" Then Exit Sub
arr = Worksheets("记录表").Range("1:1")
i = 1
Do While i <= 256
If arr(1, i) = "" Then iSpace = iSpace + 1
If arr(1, i) <> "" Then iLastcol = i: iSpace = 0
If arr(1, i) = Target.Offset(0, -1).Value Then
iCol = i
Exit Do
End If
If iSpace = 3 Then
iCol = i
With Worksheets("记录表")
.Cells(1, i) = Target.Offset(0, -1).Value
.Cells(2, i).Resize(1, 2) = Array("修改后值", "修改时间")
End With
Exit Do
End If
i = i + 1
Loop
With Worksheets("记录表")
iRow = .Cells(1, iCol).End(xlDown).Row + 1
.Cells(iRow, iCol).Value = Target.Value
.Cells(iRow, iCol + 1).Value = Now
End With
End Sub

复制代码

hwc2ycy · 发表于 2012-10-15 07:29

求代码.rar (13.86 KB, 下载次数: 37)

hwc2ycy · 发表于 2012-10-15 07:30

如果是修改时间显示不对的，只需调整下该列的自定义格式即可。

leolee82 · 发表于 2012-10-15 11:32

可以参考下http://www.excelpx.com/thread-287862-1-1.html
中的单元格修改记录功能

beyond_free · 发表于 2012-10-16 19:41

非常感谢各位大神，另有一新问题，忘能赐教，万分感谢！

求代码2.zip (15.7 KB, 下载次数: 12)

hwc2ycy · 发表于 2012-10-16 23:46

一个月就是一款设备一行，分别汇总那几个时间，对不？

beyond_free · 发表于 2012-10-17 09:55

hwc2ycy 发表于 2012-10-16 23:46
一个月就是一款设备一行，分别汇总那几个时间，对不？

11111.zip (16.28 KB, 下载次数: 8)

hwc2ycy · 发表于 2012-10-17 11:15

没事。等有时间帮你看看，应该不难的，思路已经有了。

匿名 *发表于 2014-9-3 10:16* · 发表于 2014-9-3 10:16

hwc2ycy 发表于 2012-10-15 07:27

你好。我是一个普通打工的，因为公司电脑记录被修改然后被诬陷是我做的，看您好像比较懂，能不能查出来表格修改记录的时间，愿意支付报酬，非常感谢，求帮忙，可以的话联系我好吗？391587015，再次求助，感谢。

		自动登录	找回密码
密码			注册