Top.Mail.Ru
Ответы

Требуется помощь с Excel

Нужно автоматизировать добавление времени к каждой записи в журнале действий. Что-то типа: ввел в ячейке "приступил к работе" и в соседней появилось время записи и так для всех последующих записей. Есть ли решение данной задачи ?

:

По дате
По рейтингу
Аватар пользователя
glavqa_iУченик
6мес

Да, это решается через VBA-макрос (событие Worksheet_Change). Создам готовый файл-шаблон журнала и дам код макроса.Готово! Вот что нужно сделать после скачивания файла:

Шаг 1 — Открыть редактор VBAAlt + F11 → в дереве слева дважды кликните лист «Журнал действий»

Шаг 2 — Вставить код

12345678910111213141516171819
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Or Target.Row < 4 Then Exit Sub
    Dim cell As Range
    Application.EnableEvents = False
    For Each cell In Target
        If cell.Column = 2 And cell.Row >= 4 Then
            Dim timeCell As Range
            Set timeCell = Me.Cells(cell.Row, 3)
            If cell.Value <> "" Then
                timeCell.Value = Now()
                timeCell.NumberFormat = "DD.MM.YYYY  HH:MM:SS"
            Else
                timeCell.ClearContents
            End If
        End If
    Next cell
    Application.EnableEvents = True
End Sub

Шаг 3 — Сохранить как .xlsm Файл → Сохранить как → тип «Книга Excel с поддержкой макросов (*.xlsm)»

После этого: вводите текст в столбец «Действие» — время появится автоматически. Если стереть текст — время тоже очистится. Код также находится на листе «Инструкция по макросу» внутри файла.

- Всего доброго, GLAVQA

Аватар пользователя
abram_pupkin_4Мыслитель
6мес

автоматическое датирование - идеальный вариант это макросы

точная копия вашего вопроса

https://otvet.mail.ru/question/225529561

Аватар пользователя
progzГуру
6мес
Изменено

Да, такое возможно

Аватар пользователя
ksandr78Ученик
6мес

А можно пожалуйста поподробней

Аватар пользователя
evgeny_agОракул
6мес

Есть решение через макросы.



Видео по теме