《Excel VBA跟卢子一起学早做完，不加班(实战进阶版)》_提升工作效率_1.2 创建批注： Range.AddComment

【摘要】 本书摘自《Excel VBA跟卢子一起学早做完，不加班(实战进阶版)》一书中第1章，第2节，陈锡卢、李应钦著。

1.2 创建批注： Range.AddComment

皮蛋：知道了，通过对Comment对象的成员进行操作和获取批注，那如何创建批注呢?

无言：创建单元格批注需要使用Range.AddComment方法才行，语法如下：

为单元格区域添加批注

Range.AddComment(Text)

Range.AddComment 方法只有一个 Text参数，该参数的作用是赋值为需要显示在批注中的 文本内容；该参数可以通过单元格值引用或者其他变量等方式获取。示例如下：

Range("El").AddComment Text:="无言：“&Chr(10)&Now‘ 在 E1单元格创建批注，内容为指定文本和当前时间 ActiveCell.AddComment Text=ActiveCell.Text'在激活单元格创建以当前单元格的数字格式为批注文本内容

无言：先用示例说明，要求将B 、C列单元格的内容作为A列单元格批注内容，其代码如代 码1-3所示。

代码1-3 创建单元格批注

001|Sub Rng_AddComment)

002| Dim Com_Rng As Range,F_RngAs Range

003| With Range("A1").CurrentRegion

0041 Set Com_Rng=.Offset(1),Resize(.Rows.Count-1)

005| End With

006| For Each F_Rng In Com_Rng

007] With F_Rng

008| .AddComment Text:=.Offset(0,1)&vbCrLf&.Offset(0,2)

009 End With

010] Next F_Rng

011|End Sub

代码1-3示例过程中，Com_Rng赋值为A 列的有效连续区域，并用于F_Rng 循环。循环

中 的 .AddComment Text:=.Offset(0,1)&vbCrLf&.Offset(0,2)为 引 用F_Rng 单 元 格 对 象 ， 并 以

当前单元格向右偏移1和2列(B/C) 的单元格的值作为新建批注的 Text参数的赋值。

无言：若要在单元格中的自定义数字格式，则需用Range.Text属性给Text参数赋值。

新建批注时，可通过Comment.Visible 属性将批注显示或隐藏，赋值为 True则显示批准， 为 False 则隐藏批注，其语法如下

设置批注是否显示

父级对象.Comment.Visible =TruelFalse

获取批注中的相关信息

无 言 ： 获 取 批 注 的 相 关 信 息 内 容 ， 必 需 用 到Comment 对 象 的Text 和Author 属 性 ， 如 表 1 - 2

所 示 。 首 先 来 了 解 下Comment.Text 的语法及作用。

获取指定对象的批注文本内容

父级对象.Comment.Text

现在通过Comment.Text 属性来获取图1-4中单元格的批注内容——邮箱地址，并写入F 列中，如代码1-4所示。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们 18664393530@aliyun.com 处理，核实后本网站将在24小时内删除侵权内容。