![Exel 2007-2010 - 添加新评论或编辑评论时自动插入日期](https://linux22.com/image/1295207/Exel%202007-2010%20-%20%E6%B7%BB%E5%8A%A0%E6%96%B0%E8%AF%84%E8%AE%BA%E6%88%96%E7%BC%96%E8%BE%91%E8%AF%84%E8%AE%BA%E6%97%B6%E8%87%AA%E5%8A%A8%E6%8F%92%E5%85%A5%E6%97%A5%E6%9C%9F.png)
我发现当我向单元格添加新注释时,Excel 会自动将我的用户名插入其中。所以我想知道我们是否可以配置 Excel 向我的注释添加标题的方式。
实际上,我需要 Excel 在插入新注释时自动插入日期。我可以这样做吗?如果可以,您能提供一些指南吗?
谢谢!
仅供参考,我正在尝试一些 VBA 代码,但仍然无法得到任何有用的信息!也许下个周末吧……哼
答案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
功能将部分文本(用户名)设置为粗体。