Как вставить автоматические журналы событий с помощью метки времени 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.

Leave a Comment

Не удаётся запустить Outlook 2010? Используйте безопасный режим.

Не удаётся запустить Outlook 2010? Используйте безопасный режим.

Если ваш Outlook 2010 зависает из-за вредоносной надстройки, единственный выход — запустить его в безопасном режиме и удалить надстройку.

Менеджер надстроек Office Outlook 2010

Менеджер надстроек Office Outlook 2010

В последнее время мы много экспериментировали с Outlook 2010. Вы можете прочитать предыдущие статьи о работе в автономном режиме, работе в безопасном режиме и ускорении.

Создание и добавление водяного знака в диаграмме Visio 2010

Создание и добавление водяного знака в диаграмме Visio 2010

К сожалению, Visio 2010 не поддерживает водяные знаки на диаграммах напрямую, однако перед публикацией или распространением вы всё равно можете создать водяной знак.

Импорт и привязка HTML-таблицы данных в Access 2010

Импорт и привязка HTML-таблицы данных в Access 2010

Access 2010 позволяет пользователям импортировать веб-таблицы данных, что может быть очень полезно, особенно при работе с таблицами данных, сохранёнными в формате HTML.

Функция ВПР в Excel 2010

Функция ВПР в Excel 2010

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

Excel 2010: использование формулы массива

Excel 2010: использование формулы массива

Excel предоставляет возможность работать с массивами. Иногда возникает острая необходимость применить формулу или выполнить любую другую операцию с массивами. Использование массивов

Как индексировать текст документа Word 2010

Как индексировать текст документа Word 2010

Microsoft Word предоставляет очень полезную функцию, которая помогает мгновенно находить текст, ключевые слова и термины. Благодаря индексации Word, поиск

Excel 2010: как уменьшить/увеличить количество знаков после запятой

Excel 2010: как уменьшить/увеличить количество знаков после запятой

В Excel 2010 вы можете задать (увеличить/уменьшить) количество знаков после запятой в соответствии с требуемым шаблоном таблицы. Это позволяет сделать это двумя способами:

Как выровнять текст по центру в ячейке в Excel 2010

Как выровнять текст по центру в ячейке в Excel 2010

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

Восстановление пароля файла Outlook .PST с помощью Nucleus Kernel PST Password Recovery

Восстановление пароля файла Outlook .PST с помощью Nucleus Kernel PST Password Recovery

Вы забыли или потеряли пароль к файлу Outlook PST (Personal Storage Files)? Инструмент восстановления пароля PST Nucleus Kernel поможет вам восстановить пароль.