[已解决]自动显示当前日期代码

wyjgni

求高手自动显示当前日期代码

最佳答案

月排行榜 / 总排行榜

爱疯

2015-11-24 15:43

Private Sub Workbook_Open()
    Sheets("Sheet1").Range("A1") = Date
End Sub


2.rar (6.2 KB, 下载次数: 6)

2015-11-24 15:43 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Private Sub Workbook_Open()
    Sheets("Sheet1").Range("A1") = Date
End Sub


2.rar (6.2 KB, 下载次数: 6)

2015-11-24 15:43 上传

点击文件名下载附件