ヘッダーまたはフッターに、ワークブックが最後に保存された日付を含めたい場合があります。通常、これはExcelで設定できる情報ではありません。ただし、次のマクロを使用して、情報を適切な場所に強制することができます。

Sub MyFooter()

Dim mh As String On Error Resume Next mh = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

If Err = 440 Then    Err = 0    mh = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")

If Err = 440 Then       Err = 0       mh = "Not Set"

End If End If mh = Left(mh, 8)

ActiveSheet.PageSetup.LeftFooter = "Saved: " & mh End Sub

このマクロには注意すべき点がいくつかあります。まず、ブックが最後に保存された日付（および時刻）を判別しようとします。その情報を特定できない場合は、作成された日付を抽出します。最後に、それが見つからない場合は、フッターを「保存されていません」に設定します。

このマクロではエラー処理が行われていることに注意してください。その理由は、特定のドキュメントプロパティ（この場合はBuiltinDocumentProperty）が設定されていない場合、Excelがエラーを返すためです。エラーを傍受して処理する必要があります。これはここで行われます。

このマクロを実行すると、左側のフッターが目的の情報に設定されることに注意してください。その情報は、マクロを再度実行するまで変更されません。したがって、フッターで常に最新の日付が必要な場合は、マクロを定期的に（おそらく印刷の直前に）実行するか、ドキュメントを開くたびに実行するように設定する必要があります。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（2055）は、Microsoft Excel 97、2000、2002、および2003に適用されます。