excel - Excel VBA -> 最后日期/时间保存 + 自动更新

Question

我有 excel 文档和工作表名称：概述

因为很多人修改此工作簿，我想在 B1 单元格中添加用户 ID（计算机名称）+ 日期/时间（所以最后修改工作表的人以及发生这种情况的日期和时间）

我打开宏工具 (alt+F11) -> 我第一次使用这个：

1.新建模块并添加代码：

Function LastSaveDate()
 Application.Volatile True
 LastSaveDate = FileDateTime(ThisWorkbook.FullName)  
End Function

2. 单击宏里面的左侧...“Thisworkbook”并添加以下代码：

Private Sub Workbook_Open()
MsgBox Date
Worksheets("Overview").Range("B1").Value = Date
End Sub

我做错了什么，在 B1 单元格中显示“12.11.2013 18:35:14”（我在此单元格中使用： =LastSaveDate() ）也显示正确的日期和时间，但是当我保存时（作为启用的宏文档) 它并重新打开，仅显示“12.11.2013 0:00:00”，并且此单元格 B1 中没有代码。

score 0 · Accepted Answer

您的宏正在使用当前日期Workbook_Open()覆盖您放入单元格 B1: 的公式。=LastSaveDate()

为防止这种情况，您需要删除该宏或注释掉该行：

Worksheets("Overview").Range("B1").Value = Date

1 回答 1