|
网络限制,不能上附件,请参考以下代码及说明:
说明:
1、原来单元格为空时正常输入,不添加批注
2、原来单元格有内容时添加批注
3、原来单元格有内容和批注时,批注内容增加
4、删除单元格内容时,批注一起删除
注意:一次操作多个单元格时,不作任何处理。
代码:
- Public Ori$
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Intersect([b:d,g:g], Target) Is Nothing Then Exit Sub
- If Target.CountLarge > 1 Then Exit Sub
- Ori = Target
- End Sub
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Intersect([b:d,g:g], Target) Is Nothing Then Exit Sub
- If Target.CountLarge > 1 Then Exit Sub
- If Target = "" Then Target.NoteText "": Exit Sub
- If Ori = "" Then Exit Sub
- Dim s$
- If Target <> Ori Then
- s = Target.NoteText & Chr(10) & Format(Now, "yy/m/d hh:mm:ss") & "+" & Ori & "+" & Target
- If Left(s, 1) = Chr(10) Then s = Mid(s, 2)
- Target.NoteText s
- Target.Comment.Shape.TextFrame.AutoSize = True
- End If
- End Sub
复制代码 |
评分
-
查看全部评分
|