Как вставить автоматические журналы событий с помощью метки времени Excel VBA

Временные метки — отличный ресурс для определения того, когда произошло событие. Microsoft Excel позволяет добавлять метки времени в формате дд:мм:гггг чч:мм:сс. В основном вам нужно использовать сочетания клавиш или выполнять функции Excel для добавления временных меток, что является ручной и подверженной ошибкам задачей.

Редактор кода Excel Visual Basic приходит вам на помощь, позволяя автоматизировать всю задачу с помощью сценариев временных меток VBA. Вы также можете добавить сложные условия для дальнейшей автоматизации задачи, не полагаясь на оператора ввода данных или соавтора. Читайте дальше, чтобы узнать несколько простых приемов использования VBA для добавления временных меток в Excel.

1. Как добавить отметку времени VBA: макрос QAT

Следующий код VBA позволяет запускать функцию журнала событий в любое время одним щелчком мыши на панели быстрого доступа Excel или в QAT. Это похоже на запуск макроса Excel VBA , поэтому вам нужно сохранить существующий рабочий лист, используя расширение файла с поддержкой макросов после применения кода VBA:

• Щелкните правой кнопкой мыши вкладку рабочего листа и выберите «Просмотреть код» в контекстном меню.
• Скопируйте и вставьте этот код VBA в редактор кода, а затем нажмите «Сохранить» .

Sub vba_timeStamp() Dim ts As Date With Selection .Value = Date + Time End With End Sub

• Сохраните книгу как файл с поддержкой макросов.
• Теперь перейдите на вкладку «Файл» и выберите «Параметры» в меню «Файл».
• Щелкните Панель быстрого доступа (QAT), а затем прокрутите список, чтобы найти Просмотр макросов .
• Добавьте View Macros в QAT и закройте меню Options , нажав Ok .
• Теперь запустите макрос из QAT, когда вам нужно добавить метку времени, выполнив код VBA.

Чтобы полностью автоматизировать задачу создания метки времени, вы можете использовать приведенные ниже сценарии VBA.

2. Как добавить временную метку VBA: при изменении рабочего листа

Следующий код VBA добавит метку времени в ячейки столбца B , когда обнаружит изменения в соответствующих ячейках столбца A :

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Если Target.Column = 1 And Target.Value <> "" Then Application.EnableEvents = False Target.Offset(0, 1) = Format(Now(), "dd-mm-yyyy чч:мм:сс") Application.EnableEvents = True End If End Sub

Выполните шаги, указанные в первом методе, чтобы открыть редактор кода VBA. Теперь дважды щелкните Лист1 (Лист1) в меню VBAProject (Книга1), чтобы активировать отслеживание изменений рабочего листа.

Редактор кода должен отображать Worksheet в раскрывающемся списке слева и SelectionChange в раскрывающемся списке справа. Теперь вы можете скопировать и вставить приведенный выше код VBA. После этого не забудьте сохранить файл как книгу Excel с поддержкой макросов.

Всякий раз, когда вы запускаете этот макрос, Excel автоматически добавляет метку времени в столбец B , если вы пишете что-то в столбце A. Вы также можете добавить макрос в QAT, выполнив действия, описанные в предыдущем методе добавления сценария VBA.

Заключительные слова

Теперь, когда вы знаете, как использовать редактор кода Excel VBA с вышеупомянутыми кодами временных меток VBA, вы можете приступить к изменению своей книги Excel для автоматической вставки временных меток, когда захотите.

Однако любые изменения, которые вы вносите в свой рабочий лист Excel, выполняя код VBA, не исчезнут, если вы нажмете горячую клавишу отмены. Следовательно, делайте резервные копии перед применением этих простых сценариев VBA. Excel VBA также может выполнять другие интересные функции, например, вы можете использовать VBA для вставки строк в Microsoft Excel.