Добрый форумчане! Помогите, пожалуйста, с кодом, который будет фиксировать дату и время компьютера в каждой строке при изменении любой из ячеек в диапазоне строки. Пример приложил.
Добрый форумчане! Помогите, пожалуйста, с кодом, который будет фиксировать дату и время компьютера в каждой строке при изменении любой из ячеек в диапазоне строки. Пример приложил.Leprotto
Во! я правильно догадался. И еще у меня сомнение в том, что Вы будете менять по одной ячейке всегда. Поэтому заранее сделал обработку групповых изменений [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim int_ As Range, cc_ As Range Set int_ = Intersect(Target, [Таблица1]) If Not int_ Is Nothing Then Application.ScreenUpdating = 0 Application.EnableEvents = 0 For Each cc_ In int_ If cc_.Column <> 6 Then Cells(cc_.Row, 6) = Now End If Next cc_ Application.EnableEvents = 1 Application.ScreenUpdating = 1 End If End Sub
[/vba]
Во! я правильно догадался. И еще у меня сомнение в том, что Вы будете менять по одной ячейке всегда. Поэтому заранее сделал обработку групповых изменений [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim int_ As Range, cc_ As Range Set int_ = Intersect(Target, [Таблица1]) If Not int_ Is Nothing Then Application.ScreenUpdating = 0 Application.EnableEvents = 0 For Each cc_ In int_ If cc_.Column <> 6 Then Cells(cc_.Row, 6) = Now End If Next cc_ Application.EnableEvents = 1 Application.ScreenUpdating = 1 End If End Sub
_Boroda_, Отлично работает. В первом решении при удалении последней строки таблицы, сразу же добавлялась пустая с временем. Во втором решении все шикарно. Спасибо огромное!!!
_Boroda_, Отлично работает. В первом решении при удалении последней строки таблицы, сразу же добавлялась пустая с временем. Во втором решении все шикарно. Спасибо огромное!!!Leprotto
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
