1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Для того, чтобы получить дату и время последнего пересчёта пользовательской функции, добавьте в нужную функцию нижеприведённый код. Теперь, примечание, принадлежащее ячейке с функцией, будет содержать дату и время последнего пересчёта, при условии, что рабочий лист не будет защищён.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 WithEnd FunctionИсточником (Автором) информации о возможности создания/изменения примечания пользовательскими функциями, вызываемыми из ячеек рабочего листа, является David Hager |