- 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