☰

Microsoft Excel 2012 在打开文档时添加日期

tag-icon • tag-icon microsoft-excel
Microsoft Excel 2012 在打开文档时添加日期

我想知道每次打开 Excel 表时是否可以添加日期。我知道该功能是=TODAY()，我该如何继续执行此操作，例如：

       A
1 02/05/2013 (Today's date, it would be automatically written unless it is today's date)
2 03/05/2013 (Tomorrow's date, if I open it tomorrow.)

答案1

您可以使用宏来执行此操作。 Workbook_Activate 在加载事件时触发，因此这应该有效：

Private Sub Workbook_Activate()
    If Not IsEmpty(Range("A1").Value) Then
         Range("A1").Value = Date
    End If         
End Sub

如果不起作用，请将子更改为

Private Sub Workbook_Open()

编辑

我根据您的评论更新了我的代码，但这可能是设计缺陷。例如，如果您总是写入 A1，则意味着第二天就会有一个值。我认为您需要测试该值，但是，对于这样一个简单的命令来说，这可能有点过头了。

Private Sub Workbook_Activate()
    If Not Range("A1").Value = Date Then
         Range("A1").Value = Date
    End If         
End Sub

如果是我的话，我会在每次加载时覆盖该值，而不必担心检查，因为它并不昂贵。

相关内容