表格VBA输入内容自动加时间批注？表格批注加日期

Excel如何用vba或函数实现在批注文字的最后自动加上增添或修改该批注的日期，并按不同月添加修改

VBA肯定可以啊，不过你的要求并不明确，所以程序的复杂程度也不确定。太复杂的话，就没兴趣帮你写代码了啊。

可以变通一下

在批注编辑时按ctrl+;是当前日期

ctrl+:就是当前时间

假设"开始日期"和"截止日期"分别在A1,B1

要填充的一列是C列

Sub test()

For d = [a1] To [b1]

r = r + 1

Cells(r, 3) = d

End Sub

tim = Format(Now(), "m月d日hh:mm:ss")

For Each rng In Target(1, 1).Resize(Target.Rows.Count, 1)

If Not rng.Comment Is Nothing Then

rng.Comment.Text rng.Comment.Text & Chr(10) & tim & "： " & IIf(rng = "", "【清空】", rng)

Else

rng.AddComment tim & "： " & IIf(rng = "", "【清空】", rng)

End If

rng.Comment.Visible = True

rng.Comment.Shape.Select

Selection.AutoSize = True

rng.Comment.Visible = False

改成：

tim = Format(Now(), "m月d日hh:mm:ss")

computername=Environ("COMPUTERNAME")

For Each rng In Target(1, 1).Resize(Target.Rows.Count, 1)

If Not rng.Comment Is Nothing Then

rng.Comment.Text rng.Comment.Text & Chr(10) & tim & "： " &char(10) & computername & IIf(rng = "", "【清空】", rng)

Else

rng.AddComment tim & "： " & char(10) & computername & IIf(rng = "", "【清空】", rng)