머리글 또는 바닥 글에 통합 문서를 마지막으로 저장 한 날짜를 포함하려는 경우가있을 수 있습니다. 일반적으로 이것은 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 : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2055)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다.