《VBA高级应用30例》(版权10178985),是我推出的第十套教程,教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开,这套教程案例与理论结合,紧贴“实战”,并做“战术总结”,以便大家能很好的应用。教程的目的是要求大家在实际工作中分发VBA程序,写好的程序可以升级。本套教程共三册三十个专题,本讲的内容是:VBA高级应用30例应用3在Excel中的ListObject对象:向表中添加注释摘要:《VBA高级应用30例》(版权10178985),是我推出的第十套教程,教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开,这套教程案例与理论结合,紧贴“实战”,并做“战术总结”,以便大家能很好的应用。教程的目的是要求大家
【分享成果,随喜正能量】 想的越多,顾虑就越多;怕的越多,困难就越多。一颗平和接纳的心,才能摆脱所有困境。。
在VBA中,表(Tables)的应用还是较普遍的,它们被称为ListObjects,这是Excel 2003引入的一个集合。但是对象模型的这一部分有很大的变化,我在这个专题简单给大家讲解一下应用,包括创建及一些格式操作。
我们可以通过代码向表中添加注释(文本不能超过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实践经验,全部浓缩在下面的各个教程中:
来源:VBA语言专业教育
免责声明:本站系转载,并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权和其它问题,请在30日内与本站联系,我们将在第一时间删除内容!