Как создать комментарий, содержащий время последнего пересчёта нужной пользовательской функции?

Для того, чтобы получить дату и время последнего пересчёта пользовательской функции, добавьте в нужную функцию нижеприведённый код. Теперь, примечание, принадлежащее ячейке с функцией, будет содержать дату и время последнего пересчёта, при условии, что рабочий лист не будет защищён.

code: #vba
Function MyFunction()
    'Здесь производятся необходимые вычисления
    'MyFunction = Result

    iDateCalculate$ = Format(Now, "General Date")
    With Application.Caller
         If Not .Comment Is Nothing Then
            .Comment.Text Text:=iDateCalculate$
         Else
            .AddComment.Text Text:=iDateCalculate$
         End If
    End With
End Function

Источником (Автором) информации о возможности создания/изменения примечания пользовательскими функциями, вызываемыми из ячеек рабочего листа, является David Hager

Поделиться:

Похожие статьи: