如何修改批注

cz_jie · 发表于 2022-12-30 07:40

如何用VBA来批量修改批注指定字符（颜色、大小、粗细）

我是小白，请求老师们赐与大码
在此谢了

亲、现在我半价 · 发表于 2022-12-30 08:13

过程：

Public Sub 添加批注( _
ByVal 单元格对象 As Range, _
ByVal 批注文本 As String, _
ByVal 批注宽度 As Double, _
ByVal 批注字体大小 As Integer, _
ByVal 批注字体名称 As String, _
ByVal 批注字体加粗 As Boolean _
)
With 单元格对象
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment.Text 批注文本
With .Comment.Shape
.Width = 批注宽度
With .TextFrame.Characters.Font
.Size = 批注字体大小
.Name = 批注字体名称
.Bold = 批注字体加粗
End With
End With
End With
End Sub

复制代码

nicleyuan · 发表于 2022-12-30 08:13

nicleyuan · 发表于 2022-12-30 08:15

good luck~~

ykcbf1100 · 发表于 2022-12-30 08:27

既然是求助，至少上传一个附件吧。
如果是小白，那更应该上传附件了，不然，人家给了代码，你也不会用啊；即便会用，那代码也不定适合你的情况啊。

aman1516 · 发表于 2022-12-30 09:56

ykcbf1100 发表于 2022-12-30 08:27
既然是求助，至少上传一个附件吧。
如果是小白，那更应该上传附件了，不然，人家给了代码，你也不会用啊； ...

小白才会无知者无畏，基础未打好，就搞精装修

前面的代码都是对批注整体设置的吧，
真要完全像楼主要求的那样，分不同内容设置、分行设置不同格式的，还是有点难度的

aman1516 · 发表于 2022-12-30 15:43

胡乱瞎编了一下：

花里花俏，华而不实

tanglf188 · 发表于 2022-12-30 19:03

Sub Comments()
On Error Resume Next
Range("A1").Select
Range("A1").AddComment
With Range("A1").Comment
      .Text Text:="VBA代码添加的批注:" & Chr(10) & "加了Chr(10)换行啦"  '设置批注内容
      .Shape.TextFrame.Characters.Font.Size = 14  '设置字号14
      .Shape.TextFrame.Characters.Font.Name = "宋体"  '设置字体宋体
      .Shape.TextFrame.Characters(1, 5).Font.Color = RGB(255, 97, 3)  '设置字体颜色，(1-5),可选项表示只改变前5个字符的颜色
      .Shape.TextFrame.Characters(1, 5).Font.Bold = True  '设置加粗
      .Shape.TextFrame.Characters(1, 5).Font.Italic = True  '设置斜体
      .Shape.TextFrame.Characters(1, 5).Font.Underline = xlUnderlineStyleDouble  '设置双下划线
      .Shape.TextFrame.Characters(1, 5).Font.Strikethrough = True  '设置删除线
      .Shape.Width = 250  '修改批注宽度
      .Shape.Height = 150  '修改批注高度
      .Visible = True  '显示批注
End With
End Sub

cz_jie · 发表于 2022-12-30 19:31

nicleyuan 发表于 2022-12-30 08:15
good luck~~

老师你好，感谢老师用宝贵的时间看了我的求助

是批注内容里的指定关键字符才更改，比如批注内容中出现有一次性，就一次性或者【】更改为红色加粗字体大小，其他不变。

把一次性或者【】的字符在内容中突显出来

麻烦老师在占用你的宝贵时间帮我看看

在此谢了

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

[求助] 如何修改批注

评分