Когда вы разрабатываете рабочий лист, вам может потребоваться отслеживать определенную информацию о своей книге. Например, вы можете поместить дату создания книги в ячейку. Хотя Excel предоставляет некоторые функции рабочего листа для дат (например, СЕЙЧАС или СЕГОДНЯ), он не предоставляет функцию рабочего листа для доступа к дате создания книги.

Это означает, что ответ заключается в использовании макроса. Например, вы можете создать макрос, который будет определять текущую дату и вводить ее (как текст) в определенную ячейку. Затем этот макрос можно было запускать всякий раз, когда вы создавали новую книгу, присвоив макросу имя Auto_Open. Ниже приводится пример такого макроса:

Sub Auto_Open()

If Worksheets.Application.Range("A1") = "" Then         Worksheets.Application.Range("A1") = Format(Date, "long Date")

End If End Sub

Макрос проверяет, что находится в ячейке A1. Если там ничего нет, он помещает туда текстовую версию сегодняшней даты. Если там что-то уже есть (что будет происходить каждый раз, когда вы впоследствии откроете книгу), то информация останется нетронутой и невредимой.

Однако, пожалуй, наиболее удовлетворительный подход — это получить доступ к операционной системе и получить дату создания файла для текущей книги. Это можно сделать с помощью следующей макрос-функции:

Function CreateDate() As String     Dim Temp As String     On Error GoTo NoFile     Temp = CreateObject("scripting.filesystemobject"). _       GetFile(ActiveWorkbook.Name).dateCreated

CreateDate = Left(Temp, InStr(Temp, " ") - 1)

GoTo Done NoFile:

CreateDate = "Not Saved"

Done:

End Function

Обратите внимание, что этот подход не привязан к конкретной ячейке на листе. Чтобы использовать макрос, просто поместите следующее в любую ячейку рабочего листа:

=CreateDate()

Функция возвращает либо «Не сохранено» (если книга совершенно новая и не сохранялась ранее), либо текстовое значение, представляющее дату создания книги.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2367) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

link: / excelribbon-Noting_the_Workbook_Creation_Date [Запись даты создания книги].