Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автоматическое изменение даты и времени - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическое изменение даты и времени (Макросы/Sub)
Автоматическое изменение даты и времени
ILYA_SERGEEVICH_1987 Дата: Среда, 29.11.2017, 20:17 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток, помогите пожалуйста решить вопрос для атомического отображения даты и времени изменения или внесения данных в ячейку, необходимо какое-то решение. Имеется книга EXCEL в которую заносятся позиции признанные годными ОТК (отделом технического контроля). Требуется что бы в определённом столбике автоматически отображалось время и дата, когда было занесено либо изменено значение в определённой ячейке. Во вложенном файле привёл пример того как это должно выглядеть. Столбика (ACDEF) заполняются исполнителем, а столбик (B) автоматически записывается время изменения (заполнения) в столбике С. Если такое возможно, то хотелось, чтобы Вы подсказали такое решение, которое возможно было реализовывать через "Вставка функции" затем выбирать "пользовательские" и там имелась определённая функция заранее записанная макросом (пользуюсь такой же аналогичной очень часто для функции ВПР на больное количество повторений по номеру совпадения). Стандартные функции EXCEL не подходят так как всегда сбрасываются на текущую время и дату.

Заранее благодарю за помощь.
К сообщению приложен файл: 9433633.xls(25Kb)
 
Ответить
СообщениеДоброго времени суток, помогите пожалуйста решить вопрос для атомического отображения даты и времени изменения или внесения данных в ячейку, необходимо какое-то решение. Имеется книга EXCEL в которую заносятся позиции признанные годными ОТК (отделом технического контроля). Требуется что бы в определённом столбике автоматически отображалось время и дата, когда было занесено либо изменено значение в определённой ячейке. Во вложенном файле привёл пример того как это должно выглядеть. Столбика (ACDEF) заполняются исполнителем, а столбик (B) автоматически записывается время изменения (заполнения) в столбике С. Если такое возможно, то хотелось, чтобы Вы подсказали такое решение, которое возможно было реализовывать через "Вставка функции" затем выбирать "пользовательские" и там имелась определённая функция заранее записанная макросом (пользуюсь такой же аналогичной очень часто для функции ВПР на больное количество повторений по номеру совпадения). Стандартные функции EXCEL не подходят так как всегда сбрасываются на текущую время и дату.

Заранее благодарю за помощь.

Автор - ILYA_SERGEEVICH_1987
Дата добавления - 29.11.2017 в 20:17
_Boroda_ Дата: Среда, 29.11.2017, 20:35 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11852
Репутация: 4911 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Функцией это проблематично - она же должна обновляться
В модуль листа вот так. Работает до последней заполненной в столбце А строки + 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]
К сообщению приложен файл: 9433633_1.xls(32Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеФункцией это проблематично - она же должна обновляться
В модуль листа вот так. Работает до последней заполненной в столбце А строки + 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]

Автор - _Boroda_
Дата добавления - 29.11.2017 в 20:35
ILYA_SERGEEVICH_1987 Дата: Четверг, 30.11.2017, 16:38 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, Спасибо огромное это то что нужно
 
Ответить
Сообщение_Boroda_, Спасибо огромное это то что нужно

Автор - ILYA_SERGEEVICH_1987
Дата добавления - 30.11.2017 в 16:38
ILYA_SERGEEVICH_1987 Дата: Вторник, 05.12.2017, 19:01 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Еще небольшой вопросик, как можно защитить данный столбик от изменения непосредственно исполнителем. Что бы время бралось автоматически с системного времени, и не было возможности изменить его ручками. Стандартные возможности EXCEL не подошли, не дают макросу отрабатывать !!!!
 
Ответить
СообщениеЕще небольшой вопросик, как можно защитить данный столбик от изменения непосредственно исполнителем. Что бы время бралось автоматически с системного времени, и не было возможности изменить его ручками. Стандартные возможности EXCEL не подошли, не дают макросу отрабатывать !!!!

Автор - ILYA_SERGEEVICH_1987
Дата добавления - 05.12.2017 в 19:01
_Boroda_ Дата: Среда, 06.12.2017, 09:22 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11852
Репутация: 4911 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
- Прочитайте Правила форума
- Создайте новую тему согласно п.5q Правил форума


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение- Прочитайте Правила форума
- Создайте новую тему согласно п.5q Правил форума

Автор - _Boroda_
Дата добавления - 06.12.2017 в 09:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическое изменение даты и времени (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!