每天在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