A列保存数据,B列保存A列中对应行的最后修改时间。如:
A列 B列
a 5/10/2007 17:00
b 5/10/2007 13:00
c 5/10/2007 17:30
... ...
预期目标:修改A列中的某行时,B列中对应的行自动修改为当前系统时间。
问题:B列的公式应该怎样写?
------解决方案--------------------------------------------------------
使用VBA:Worksheet_SelectionChanged事件里面加入代码写入时间即可。
------解决方案--------------------------------------------------------
注:使用公式的方法是不可行的.
------解决方案--------------------------------------------------------
有VBA可以实现
------解决方案--------------------------------------------------------
太变态了,每一行都记录,资源都被耗光了
------解决方案--------------------------------------------------------
Dim a As Long, b As Long, c As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(a, b) <> c Then
Cells(a, b + 1) = Now()
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = ActiveCell.Row
b = ActiveCell.Column
c = ActiveCell.Value
End Sub