在EXCEL里,如何用一个单元格记录另一个单元格的修改时间?

来源:百度知道 编辑:UC知道 时间:2024/06/08 06:47:33
如题
我想用一个单元格记录另一个单元格修改的最后时间
比如用B1记录下A1的修改时间
该如何实现
循环引用或VBA?

打开这个EXCEL,然后按Alt+F11,在左边VBProject里面选择你的工作表(双击)然后把下面的代码贴上然后关闭就可以了~(如果第2列显示的是#######说明这个单元格不够大,拖大点就能看到完整的修改时间了)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column= 1 Then '1表示第1列的内容改变时
Cells(Target.row, 2) = Now '2表示在第2行记录修改时间
End If
End If
End Sub

楼上的代码只是当单元格a1改变时,b1才显示时间。

试试下面的代码:(除了b1之外的任意单元格改变时,都会在b1显示时间)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("b1") Then exit sub
Range("b1") = Date & " " & Time
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("a1") Then
Range("b1") = Date & " " & Time
End If
End Sub