当向一个列中添加内容时，我让另一列插入当前日期，但是如何保持插入的日期不被更新？好像每天都要更新...

[bizbuy]

以下是个工作跟踪项，插入"内容1"，前一列自动获取当前时间，并且这个时间不应被更新，除非内容1的内容被修改。

2008/1/1 内容1
2008/1/2 内容2


我现在这样做，每天第一列的时间都会被自动更新到当前时间。如何来控件？

最好在第一列获取当前时间后，把他的计算公式自动替换为当前时间。有办法吗？谢谢

[claro]

帮顶
不了解。

[claro]

我都是手动的，呵呵。
插入当前日期和时间     选取一个单元格，并按 Ctrl+;，然后按空格键，最后按 Ctrl+Shift+;

[dragonrabb]

可以这样试下，在open事件将原来的数据复制到另一张表里，然后就可通过IF函数来判断数据有没有更改，从而确定是用原来的时间还是现在的时间

[dragonrabb]

是在Excel,还是Access中？

[bizbuy]

[Quote=引用 1 楼 dragonrabb 的回复:]
是在Excel,还是Access中？
[/Quote]
EXCEL中

[yeah920]

不懂，帮顶

[fiten_z]

選擇Sheet1（看你哪個表），查看程序代碼
將下面的代碼放進去，保存OK

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(0, 1) = Now
End If
End Sub

[ljc007]

[Quote=引用 10 楼 bizbuy 的回复:]
好像还是不行啊
[/Quote]
行，我一直在用。

[bizbuy]

[Quote=引用 5 楼 dragonrabb 的回复:]
可以这样试下，在open事件将原来的数据复制到另一张表里，然后就可通过IF函数来判断数据有没有更改，从而确定是用原来的时间还是现在的时间
[/Quote]
有没有具体的操作

[califord]

这个没了解过

[ljc007]

'用B列来记录A列的最后修改时间

Dim r As Integer, c As Integer, v As String
Const DetectCol As Integer = 2, StartRow As Integer = 2, EndRow As Integer = 16, TimeCol As Integer = 4

Private Sub Worksheet_Change(ByVal Target As Range)
    If c = DetectCol And r >= StartRow And r <= EndRow Then
        'If Cells(r, c) <> v Then
            Cells(r, TimeCol) = Now()
        'End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    r = ActiveCell.Row
    c = ActiveCell.Column
    v = ActiveCell.Value
End Sub

[ljc007]

请根据实际情况自行更改楼上定义的变量的数值

[bizbuy]

[Quote=引用 9 楼 ljc007 的回复:]
请根据实际情况自行更改楼上定义的变量的数值
[/Quote]
好像还是不行啊