время последнего изменения записи

[Avtopic]

Здравствуйте,
Чувствую, что большую глупость спрашиваю, но может, получу
неординарный ответ.

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

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

Может, имеется возможность формулой зафиксировать время
последнего изменения каждой записи. Или другое решенные.
Искусственное (программно организованное) UNDO не предлагать.
Спасибо заранее.

[KL]

Чисто из спортивного интереса можешь попробовать вот это, но думаю, овчинка выделки не стоит

[Avtopic]

Спасибо. Нет, это точно не буду использовать, хочет, чтобы процессор только на него работал.

[KL]

Ну это была только идея - можно сделать что нить более щадящее, например так:

[GSerg]

Avtopic, а сколько уровней отмены надо?

[KL]

с посл. вариантом мысль такая - девушки работают, а прога втихаря записывает ходы, не влияя на UNDO. При необходимости можно посм комментарии вручную или кнопкой ViewUpdates 2. Ну а при аудите, когда UNDO какбы никчему ViewUpdates 1

[KL]

Еще такой вариант:

Код: Выделить всё

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    If Intersect(Target, [A2:K1000]) Is Nothing Then Exit Sub
    Set rng = ActiveCell
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    For Each c In Intersect(Target, [A2:K1000])
        Cells(c.Row, "L").Activate
        SendKeys Now & "{HOME}"
    Next c
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

[alibek]

lapink2000, хороший вариант, но я бы еще посоветовал использовать Format$() (чтобы передовать строку с учетом локали) и в полученной строке экранировать управляющие символы.

[KL]

...использовать Format$() (чтобы передовать строку с учетом локали) и в полученной строке экранировать управляющие символы.

Пожалуй

[KL]

да, и выбросить строку Set rng = ActiveCell - она осталась там случайно

[Avtopic]

Извините, Отсутствовал, не смог прочитать ваши ответы, Всем спасибо. Особое спасибо то lapink2000