先在点菜单栏,工具,选项,重新计算,勾选迭代计算,最多迭代次数设为1次
确定.然后在A1输入=IF(AND(B1="",C1="",D1=""),"",IF(A1="",TEXT(IF(A1>0,TODAY(),""),"yyyy-m-d"),A1))并向下填充.这样只要某一行B,C,D列中有一列输入数据A列就会显示当前时间.且这个时间不会随系统时间的变化而变化.它是固定在输入时的日期.
记住BCD三列先不要输入任何内容,公式写完后再输入
好像做不到,不过你能想到这些就说明你想的很多了,你就直接手工录入吧,
ALT+F11,在弹出的页面中,左边选择当前编辑的工作表,在右边复制如下代码。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
If Range("A1") = "" Then
Range("A1") = Time
End If
End If
End Sub
然后关闭编辑器,在EXCEL的菜单选-工具-宏-安全性-设置为低。
祝你成功!
用:
Private Sub Worksheet_Change
Ctrl+; 键