Доброго времени суток, помогите пожалуйста решить вопрос для атомического отображения даты и времени изменения или внесения данных в ячейку, необходимо какое-то решение. Имеется книга EXCEL в которую заносятся позиции признанные годными ОТК (отделом технического контроля). Требуется что бы в определённом столбике автоматически отображалось время и дата, когда было занесено либо изменено значение в определённой ячейке. Во вложенном файле привёл пример того как это должно выглядеть. Столбика (ACDEF) заполняются исполнителем, а столбик (B) автоматически записывается время изменения (заполнения) в столбике С. Если такое возможно, то хотелось, чтобы Вы подсказали такое решение, которое возможно было реализовывать через "Вставка функции" затем выбирать "пользовательские" и там имелась определённая функция заранее записанная макросом (пользуюсь такой же аналогичной очень часто для функции ВПР на больное количество повторений по номеру совпадения). Стандартные функции EXCEL не подходят так как всегда сбрасываются на текущую время и дату.
Заранее благодарю за помощь.
Доброго времени суток, помогите пожалуйста решить вопрос для атомического отображения даты и времени изменения или внесения данных в ячейку, необходимо какое-то решение. Имеется книга EXCEL в которую заносятся позиции признанные годными ОТК (отделом технического контроля). Требуется что бы в определённом столбике автоматически отображалось время и дата, когда было занесено либо изменено значение в определённой ячейке. Во вложенном файле привёл пример того как это должно выглядеть. Столбика (ACDEF) заполняются исполнителем, а столбик (B) автоматически записывается время изменения (заполнения) в столбике С. Если такое возможно, то хотелось, чтобы Вы подсказали такое решение, которое возможно было реализовывать через "Вставка функции" затем выбирать "пользовательские" и там имелась определённая функция заранее записанная макросом (пользуюсь такой же аналогичной очень часто для функции ВПР на больное количество повторений по номеру совпадения). Стандартные функции EXCEL не подходят так как всегда сбрасываются на текущую время и дату.
Функцией это проблематично - она же должна обновляться В модуль листа вот так. Работает до последней заполненной в столбце А строки + 1 [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim d0_ As Range, d_ As Range Set d0_ = Intersect(Target, Range("C2").Resize(Range("C" & Rows.Count).End(3).Row)) If Not d0_ Is Nothing Then For Each d_ In d0_ Range("B" & d_.Row) = Now Next d_ End If End Sub
[/vba]
Функцией это проблематично - она же должна обновляться В модуль листа вот так. Работает до последней заполненной в столбце А строки + 1 [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim d0_ As Range, d_ As Range Set d0_ = Intersect(Target, Range("C2").Resize(Range("C" & Rows.Count).End(3).Row)) If Not d0_ Is Nothing Then For Each d_ In d0_ Range("B" & d_.Row) = Now Next d_ End If End Sub
Еще небольшой вопросик, как можно защитить данный столбик от изменения непосредственно исполнителем. Что бы время бралось автоматически с системного времени, и не было возможности изменить его ручками. Стандартные возможности EXCEL не подошли, не дают макросу отрабатывать !!!!
Еще небольшой вопросик, как можно защитить данный столбик от изменения непосредственно исполнителем. Что бы время бралось автоматически с системного времени, и не было возможности изменить его ручками. Стандартные возможности EXCEL не подошли, не дают макросу отрабатывать !!!!ILYA_SERGEEVICH_1987