IT2DOWN - IT异常查询网 - 软件异常查询专家
输入您需解决的 软件开发问题并开始搜索, IT异常查询网可以方便地提供各类 程序错误解决方案。
当前位置: IT异常查询网 »

在EXCEL中怎么自动取得当天日期 - VBA

www.it2down.com   发布于:2013-11-23 21:54:54   
在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
更多 110
X你也许会喜欢
Web前端  最新解决方法
软件开发 程序错误 异常 It2down Copyright © 2005-2014 It2down 版权所有 诚心交换友情链接:qq:317143513