Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA->;上次保存日期/时间+;自动更新_Excel_Vba - Fatal编程技术网

Excel VBA->;上次保存日期/时间+;自动更新

Excel VBA->;上次保存日期/时间+;自动更新,excel,vba,Excel,Vba,我有excel文档和工作表名称:概述 因为有很多人修改这个工作簿,我想添加B1单元格用户ID(计算机名)+日期/时间(所以上次修改工作表的人以及发生这种情况时的日期和时间) 我打开宏工具(alt+F11)->我第一次使用它: 1。创建新模块并添加代码: Function LastSaveDate() Application.Volatile True LastSaveDate = FileDateTime(ThisWorkbook.FullName) End Function 2。单击

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

因为有很多人修改这个工作簿,我想添加B1单元格用户ID(计算机名)+日期/时间(所以上次修改工作表的人以及发生这种情况时的日期和时间)

我打开宏工具(alt+F11)->我第一次使用它:

1。创建新模块并添加代码:

Function LastSaveDate()
 Application.Volatile True
 LastSaveDate = FileDateTime(ThisWorkbook.FullName)  
End Function
2。单击宏的左侧内部。。。“Thisworkbook”并添加以下代码:

Function LastSaveDate()
 Application.Volatile True
 LastSaveDate = FileDateTime(ThisWorkbook.FullName)  
End Function
我做错了,B1单元格中的excel显示“12.11.2013 18:35:14”(我在此单元格中使用:=LastSaveDate())也显示正确的日期和时间,但当我保存(作为启用的宏文档)并重新打开它时,只显示“12.11.2013 0:00:00”,而B1单元格中没有代码。

您的
工作簿\u Open()
宏正在用当前日期覆盖放入单元格B1中的公式:
=LastSaveDate()

要防止出现这种情况,您需要删除该宏或注释掉该行:

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