Exel 2007-2010 - автоматическая вставка даты при добавлении нового или редактировании комментария

Question

Я вижу, что когда я добавляю новый комментарий к ячейке, Excel автоматически вставляет в нее мое имя пользователя. Поэтому мне интересно, можем ли мы настроить способ добавления заголовка Excel в мой комментарий.
На самом деле мне нужен Excel для автоматической вставки даты, когда я вставляю новый комментарий. Могу ли я это сделать? Если да, можете ли вы дать какое-нибудь руководство, чтобы сделать это!
Спасибо!

---

К вашему сведению, я пытаюсь с некоторыми частями кода VBA, но до сих пор не могу получить ничего полезного! Может быть, в следующие выходные ... хм

Answer 1

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

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

Вот быстрый пример:

Sub AddNewComment()
   Dim sComment As String, rng As Range

   If TypeName(Selection) = "Range" Then
      Set rng = Selection

      sComment = InputBox("Enter your comment.", "Add New Comment")
      If Len(sComment) > 0 Then
         ' append date and username to comment
         sComment = Format(Date, "m/d/yy") & " " & Application.UserName & ":" & vbLf & sComment
         If rng.Comment Is Nothing Then
            rng.AddComment sComment
         Else
            ' append new comment to existing comment
            rng.Comment.Text vbLf & sComment, Len(rng.Comment.Text) + 1, False
         End If

      End If

      Set rng = Nothing
   End If

End Sub

Примечание: весь текст будет простым. Вы не можете установить часть своего текста (имя пользователя) жирным шрифтом с помощью .Text функция.