Excel (5) – 顯示檔案最後修改日期

在 Excel 中制作週報,打算自動顯示一週日期(前五天)去 lookup 數據,在 Excel 裡自動顯示日期,若是使用 today( ) 或 now ( ) 的話會出現一個問題,因為 today ( ) 會隨著用家打開文件的日期而改變,所以最好還是使用「文件最後編輯日期」 Last modified date 較為恰當。

ModDate () 及 CreaDate () 指令

不過我的 Excel (2002 SP3 版本) 的功能表之中,並沒有顯示 Last modified date 這個功能,所以要依靠 Visual Basic 去創建一個 VB module 指令 ,以便在 Excel 中增加一個新功能,把「文件最後編輯日期」呼喚出來使用,接著把日期減去 1 至 5 天,便可以自動得到一週間的日期。

在 Excel 的 Visual Basic Editor 中建立 ModDate () 及 CreaDate () 指令,ModDate ( ) 是顯示 Last modified date 而 CreaDate ( ) 是顯示 Created date

  • 在 Excel 功能表進入 Tools > Marco > Visual Basic Editor ( 或按 Alt + F11 )
  • 在 VB Editor 功能表進入 Insert > Module
  • 在 Module Window 中輸入以下指令:

    Public Function ModDate()
    ModDate = Format(FileDateTime(ThisWorkbook.FullName), “m/d/yy h:n ampm”)
    End Function

    Function CreaDate() As Date
    CreaDate = ActiveWorkbook.BuiltinDocumentProperties(“Creation Date”)
    End Function

  • VB Editor > File > Close and return to MS Excel (或按 Alt+Q)
  • 在 Excel 中可以得到兩個新功能
  • 在 Cell 中使用 =CreaDate() 去顯示文件創作日期
    =ModDate() 去顯示最後編輯日期
  • 另外在 File > Properties > Statistics 可以查看到 Excel 文件的 Created date 及 Modified Date

 

140221excelmoddate01

打算自動顯示一週(前五天)數據,若是使用 today( ) 或 now ( ) 的指令並不恰當

140221 excelmoddate02

原來只要配合 Visual Basic 一起使用,自行創建一個 ModDate( ) 的 module 指令,便可以在 Excel 中,把檔案的最後編輯日期呼喚出來使用

140221 excelmoddate03

在 VB Editor 功能表進入 Insert > Module 建立 Module 指令

140221 excelmoddate04

在 Cell 中使用 =CreaDate() 去顯示文件創作日期或 =ModDate() 去顯示最後編輯日期

You may also like...

Leave a Reply

Your email address will not be published. Required fields are marked *