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

问题描述 投票:-2回答:1

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

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

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

excel vba excel-vba
1个回答
0
投票

我将创建以下内容并分配一个快捷键(Developer tab-> Macro-> select AddTimedComment-> click Options)

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会提示输入注释的文本。然后代码将当前日期附加到文本的开头。

© www.soinside.com 2019 - 2024. All rights reserved.