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功能将部分文本（用户名）设置为粗体。