在EXCEL中怎么自动取得当天日期
在EXCEL中如何自动取得当天日期
每输入一行，在该行某个位置上自动填上当天日期，比如前天输入一行数据后，显示2012-4-25，今天输入一行数据后，显示2012-4-27。excel中怎么实现啊？
请高手指教
------解决方案--------------------
如果单纯用公式的话会有这个问题。解决方法2种，第一你每次录入完将公式单元格粘贴为数值。
第二，如果你日期列相对固定，那么可以录制一个宏，每次关闭或保存时，执行宏，将该列粘贴为数值。
还是有就是用纯VBA实现，感觉多此一举。
------解决方案--------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
'如果1列1行或1行以上的单元格有改动 在改动行的第三列赋予date
If Target.Column = 1 And Target.Row >= 1 Then
Cells(Target.Row, 3) = Date
End If
End Sub
每输入一行，在该行某个位置上自动填上当天日期，比如前天输入一行数据后，显示2012-4-25，今天输入一行数据后，显示2012-4-27。excel中怎么实现啊？
请高手指教
------解决方案--------------------
如果单纯用公式的话会有这个问题。解决方法2种，第一你每次录入完将公式单元格粘贴为数值。
第二，如果你日期列相对固定，那么可以录制一个宏，每次关闭或保存时，执行宏，将该列粘贴为数值。
还是有就是用纯VBA实现，感觉多此一举。
------解决方案--------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
'如果1列1行或1行以上的单元格有改动 在改动行的第三列赋予date
If Target.Column = 1 And Target.Row >= 1 Then
Cells(Target.Row, 3) = Date
End If
End Sub