Как автоматически добавлять дату и время для комментариев в Excel?

Когда вы вставляете комментарий в ячейку, имя пользователя по умолчанию будет вставлено автоматически. Вы когда-нибудь задумывались, можно ли автоматически добавлять текущую дату и время в комментарий? Это поможет вам быстро определить время, когда вы создавали комментарии. В этой статье я расскажу о некоторых приемах, которые помогут вам справиться с этой проблемой в Excel.

Вручную добавьте дату и время для комментариев с помощью горячих клавиш

Автоматическое добавление даты и времени для комментариев с кодом VBA

Вручную добавьте дату и время для комментариев с помощью горячих клавиш

Не вводя данные и время в поле для комментариев, вы можете использовать эти горячие клавиши, чтобы быстро и легко вставить данные и время. Пожалуйста, сделайте следующее:

1. Щелкните одну ячейку, в которую вы хотите вставить комментарий с текущими данными и временем, а затем щелкните правой кнопкой мыши, чтобы выбрать Вставить комментарий формируем контекстное меню, см. снимок экрана:

2. После вставки комментария в поле для комментариев нажмите CTRL+; чтобы вставить текущую дату, введите пробел и нажмите Ctrl + Shift +; чтобы вставить текущее время, и текущие данные и время были добавлены в комментарий сразу, см. снимок экрана:

3. А затем вы можете редактировать свой комментарий по своему усмотрению.

Автоматическое добавление даты и времени для комментариев с кодом VBA

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

1. Выберите ячейку, в которую вы хотите вставить комментарий.

2. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

3. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: автоматическое добавление даты и времени для комментариев

Sub DatedComment()
'Update 20141110
Dim pComment As Comment
Dim WorkRng As Range
Set WorkRng = Application.ActiveCell
Set pComment = WorkRng.AddComment(Application.UserName & ":" & vbLf & Now & vbLf)
pComment.Shape.TextFrame.Characters(1, VBA.Len(Application.UserName) + 1).Font.Bold = True
End Sub

4, Затем нажмите F5 ключ для запуска этого кода, и комментарий будет автоматически вставлен в выбранную ячейку с датой и временем, и вы можете отредактировать комментарий по своему усмотрению, см. снимок экрана:

Функции: Этот VBA не может работать, если в выбранную ячейку уже был вставлен комментарий.

Статьи по теме:

Как сбросить все позиции комментариев в Excel?

Как в Excel выделить все ячейки с комментариями?