EXCEL单元格批量填充后如何自动批量添加时间批注?

发布网友发布时间：2022-04-23 04:29

我来回答

共3个回答

热心网友时间：2022-05-05 10:44

选中单元格E3，点击审阅—批注—新建批注

请点击输入图片描述

编辑输入批注内容“已达标”

请点击输入图片描述

复制单元格E3，按住Ctrl键选择其他要添加批注的单元格

请点击输入图片描述

点击开始—粘贴下拉菜单—选择性粘贴

请点击输入图片描述

选择批注

请点击输入图片描述

批量添加批注完成

请点击输入图片描述

热心网友时间：2022-05-05 12:02

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
For Each Rng In Target
If Not Intersect(Rng, Range("a1:z999")) Is Nothing Then
If Len(Rng) = 0 Then
If Not (Rng.Comment Is Nothing) Then Rng.Comment.Delete
Else
If Rng.Comment Is Nothing Then
Rng.AddComment.Text Text:=CStr(Now())
Else
Rng.Comment.Delete
Rng.AddComment.Text Text:=CStr(Now())
End If
End If
End If
Next Rng
End Sub

热心网友时间：2022-05-05 13:37

Excel单元格自动批量添加时间批注，应该用VBA编程来处理。