在输入的评论中添加日期戳

Question

我有一个专栏，我在其中输入评论。这可能每天都在变化。我想知道是否有可能让Excel在评论前面自动添加日期（格式为DD / MM）（可能是通过用户形式）？

评论应该添加到已经在该字段中的任何评论中，因此它不会覆盖，而是累积。

此外，今天，评论通过数据验证列表添加（没有硬停止）。如果可能的话，我想继续这样做。

Answer 1

我会创建以下内容并指定快捷键（Developer tab-＆gt; Macro-＆gt;选择AddTimedComment-＆gt;点击选项）

Public Sub AddTimedComment()
    Dim c As Range
    Dim comment As String

    Set c = ActiveCell.Cells(1)
    comment = Format(Now, "dd/MM") + ": " + InputBox("Enter a Comment", "Comment")
    c.AddComment comment
End Sub

InputBox会提示输入评论的文字。然后代码将当前日期附加到文本的开头。