发布网友 发布时间:2022-04-22 08:14
共3个回答
热心网友 时间:2022-06-18 11:22
选中单元格E3,点击审阅—批注—新建批注
编辑输入批注内容“已达标”
复制单元格E3,按住Ctrl键选择其他要添加批注的单元格
点击开始—粘贴下拉菜单—选择性粘贴
选择批注
批量添加批注完成
热心网友 时间:2022-06-18 11:22
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-06-18 11:23
Excel单元格自动批量添加时间批注,应该用VBA编程来处理。