自动添加修改批注

YZC51 · 发表于 2019-10-23 09:57

kebei 发表于 2019-10-23 09:28
抱歉，新人不太懂规矩，非常感谢！！！，已鲜花送给你！

2004年的老师傅啦！

YZC51 · 发表于 2019-10-23 09:57

请参考

动态添加修改批注 (1).zip (54.3 KB, 下载次数: 32)

kebei · 发表于 2019-10-23 10:16

YZC51 发表于 2019-10-23 09:57
请参考

太感谢啦!问题已经解决！原来CALL 就可以啦
ps：惭愧，虽然注册早，只是偶尔有问题时上来学习，发帖少

YZC51 · 发表于 2019-10-23 10:19

添加字体大小和颜色
Sub 插入批注()
Dim r As Range
Sheet1.Select
For Each r In Range("D4:Bk15")
      k = r.Row: c = r.Column
      s = Sheet2.Cells(k, c)
      If Sheet2.Cells(k, c) <> r.Value Then
         r.NoteText s
         r.Comment.Shape.Width = 20
         r.Comment.Shape.Height = 20
         r.Comment.Shape.TextFrame.Characters.Font.Size = 13 '字体大小
         r.Comment.Shape.TextFrame.Characters.Font.ColorIndex = 3 '字体颜色
      Else
         r.ClearComments
      End If
Next
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 自动添加修改批注

评分

评分

浏览过的版块