|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Private Sub Workbook_sheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("f:f")) Is Nothing Then Exit Sub
sj = "[" & Format(Now(), "") & "] "
For Each Rng In Target
If Not Rng.Comment Is Nothing Then
Rng.Comment.Text Text:=Rng.Comment.Text & Chr(10) & sj & Rng.Text
pzh = UBound(Split(Rng.Comment.Text, "]"))
Rng.Comment.Shape.Width = 225 '定义批注宽度
Rng.Comment.Shape.Height = 11.5 * pzh '定义批注高度
Else
Rng.AddComment Text:=sj & Rng.Text
End If
Next
End Sub
各位大神,当插入行时整行会添加批注,是哪里不对?谢谢! |
|