当前位置: 代码迷 >> Office >> 【】Excel 2003: 怎样记录每一行的最后修改时间
  详细解决方案

【】Excel 2003: 怎样记录每一行的最后修改时间

热度:5356   发布时间:2013-02-26 00:00:00.0
【求助】Excel 2003: 怎样记录每一行的最后修改时间?
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

  相关解决方案