如何在EXCELL中自动生成第一次创建该工作表的当天日期

来源:百度知道 编辑:UC知道 时间:2024/06/24 06:32:16
如何在EXCELL中自动生成第一次创建该工作表的当天日期,而且这个日期是不会再随日期变化而变化的.比如我在一个EXCELL文档里会每天新建一个或者多个工作表,每个工作表里面都有日期这一栏,比如我1号新建的工作表,日期自动显示为1号,2号新建的工作表日期自动显示为2号,但是1号的工作表日期还是1号,不会随日期改变而变成2号.

按下ALT+F11,双击左边"工程"框下的"THISWORKBOOK",复制下面代码到右边的代码框中.退出.

以后你每建立一个新工作表,日期会出现在A1.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
ActiveSheet.Cells(1, 1) = Date
End Sub