每天在EXCEL中编写一个宏，并自动将日期和时间保存到文件名中

子按钮 1 单击 （）。

falsefalse

withlookin =

filename = format(date, "yyyymmdd") &"*.xls"

if .execute(sortby:=msosortbyfilename, sortorder:=msosortorderascending) >0 then

\" & format(date, "yyyymmdd") &""

end if

if msgbox("是否关闭已生成的文件？ ", vbyesno, "请选择！ ") = vbyes then

end with

true true

end sub

自己录下来是可以的。

设置一个计时器，然后指定时间并将其保存到您指定的文件夹中。

这么长时间你都看不到手机，它只会给你一些想法。

一旦你保存了它，你似乎必须从中创建一个新的宏。

原始**数据不更改，打印时自动添加打印日期。

它只能作为一种方式保存，并且可以通过 VBA** 实现。 例如：

子 save（）。

d = format(date, " YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY")s =

\" & s & d

end sub

通常，要添加系统时间，请在单元格中输入 =now（） 函数，系统会自动生成当前时间。 如果工作表中任何一个单元格的数据发生更改，则所有使用 =now（） 生成时间的单元格都将遵循所有更改。

为了达到固定时间的目的，而不随着**内容的变化而改变，我们通过使用数据有效性来实现它。

在任何单元格中插入 =now（） 函数，如实验 ** 中的 d1 列所示。

单击“数据”选项卡，然后选择“数据有效性”选项以弹出“数据有效性设置”窗口。

将有效性条件设置为“系列”，在步骤 2 中将数据设置为 d1 列，并将引用更改为绝对引用，即"=$d$1"，然后单击“确定”保存。

在 A3、A4 和 A5 单元格输入内容测试中，您会发现 B3、B4 和 B5 倍不会随着单元格的变化而变化。 但是，直接使用 now（） 函数的单元格 a1 和 a2 也会效仿。

原始**数据不更改，打印时自动添加打印日期。

直接按Ctrl+S，非常方便。

如果您不需要宏，只需将公式写在 b 列中，=if（a1<>"",today(),""），列 b 应更改为 datetime 格式。

如果要每次都输入 A 列，则 B 列将仅更改一次，其他时间将使用宏而不更改 B 列数据。

dim c as integer

if = 1 then

c =if , 1) = "" then

1) = "创建日期：" & dateelse

cells(, c + 1) = "修改日期：" & dateend if

end if

range("b:iv").

end sub