网站更换上海最近3天疫情情况

《VBA高级应用30例》（版权10178985），是我推出的第十套教程，教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开，这套教程案例与理论结合，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中分发VBA程序，写好的程序可以升级。本套教程共三册三十个专题，本讲的内容是：VBA高级应用30例应用3在Excel中的ListObject对象：向表中添加注释

【分享成果，随喜正能量】 想的越多，顾虑就越多；怕的越多，困难就越多。一颗平和接纳的心，才能摆脱所有困境。。

应用3 在Excel中的ListObject对象

在VBA中，表(Tables)的应用还是较普遍的，它们被称为ListObjects，这是Excel 2003引入的一个集合。但是对象模型的这一部分有很大的变化，我在这个专题简单给大家讲解一下应用，包括创建及一些格式操作。

5 向表中添加注释

我们可以通过代码向表中添加注释(文本不能超过255个字符)，在实际应用中我们可以通过ListObject.Comment 属性做到这一点。在VBA中，我们可以把下面的代码作为实现这一功能的标准代码看待：

Sub mynzAddComment()

Dim oSh As Worksheet

Set oSh = ActiveSheet

'向表中添加注释（注释表自动关联的RangeName）,注意,RangeName不能删除,表转换为区域后，区域名称将自动删除

oSh.ListObjects("myTable1").Comment = "这是 myNz Ttable"

MsgBox oSh.ListObjects("myTable1").Comment

End Sub

代码截图：

代码的运行结果：

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：