Excel表格输入内容后,自动增加批注并在其中写入当天日期M2M
M2M3,你好,又要麻烦你了,上次那个表格还有最后一个修改就可以了。 目前sheet“客户卡”的k-z列只要输入内容,就会自动增加批注,并在批注中写入当天的日期。但实际使用中会出现需要修改之前的单元格的情况,结果日期就自动发生变化了,变成了错误的时间。我现在希望的功能是,空白单元格在输入内容后,只会增加一次批注,批注中是当日的日期。如果再次修改,批注不发生变化。如果删除到单元格的内容,则批注也会自动删除。再麻烦一次,非常感谢!
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("k2:z10000")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If Target.Comment Is Nothing Then Target.AddComment.Text Text:=CStr(Date) Target.Comment.Visible = False Else Target.Comment.Visible = False If Target.Value = "" Then Target.Comment.Delete End If End If End Sub