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

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

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

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

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