Зафиксировать формулу к изменению конкретной ячейки

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Зафиксировать формулу к изменению конкретной ячейки (Формулы/Formulas)

ПАМ

Дата: Вторник, 13.10.2026, 08:05 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 318

Репутация: 11 ±

Замечаний: 20% ±

Excel 2010, Excel 2016

Добрый день, уважаемые форумчане!
Помогите мне пожалуйста разобраться с такой задачей:
В ячейке А1(в примере, по факту может быть любая) записывается любое значение (формула).
В ячейке В1 (также в примере) должно отображаться время и дата изменения ячейки А1, но при этом не изменяться при не изменении ячейки А1.
Сам попробовал через

Код

ТДАТА()

но не совсем то, так как эта формула обновляется при открытии файла заново или его сохранении.
Можно как-то "зафиксировать" формулу на привязку к изменению к конкретной ячейки? Потому что затем я хотел бы в других ячейках зафиксировать изменения
Помогите пожалуйста мне разобраться в данном вопросе.

Желательно без макросов и различных надстроек.

Заранее ВСЕМ спасибо!

К сообщению приложен файл: 5630140.xlsx (9.5 Kb)

Сообщение отредактировал ПАМ - Вторник, 13.10.2026, 08:06

Ответить

китин

Дата: Вторник, 13.10.2026, 08:57 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7046

Репутация: 1082 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Цитата

Желательно без макросов и различных надстроек.

к сожалению не получится. только макрос или каждый раз проставлять дату ручками
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dat&
dat = Cells(Rows.Count, 1).End(xlUp).Row
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A" & dat)) Is Nothing Then

    If Target <> "" And Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Date
    End If
End Sub

[/vba]

К сообщению приложен файл: primer.xlsm (14.9 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Зафиксировать формулу к изменению конкретной ячейки (Формулы/Formulas)

Страница 1 из 1
1