19、VBA 自定义集合与对象的创建和使用

VBA 自定义集合与对象的创建和使用

在 VBA 编程中，自定义集合和对象的操作是非常实用的技能。下面将详细介绍如何创建自定义集合、操作集合中的对象，以及如何创建和使用自定义对象。

自定义集合操作

首先，我们来看如何创建一个自定义集合来存储特定作者的评论。以下是具体步骤：
1. 声明自定义集合对象 ：开始时，声明一个名为 colNotes 的自定义集合对象。
2. 获取作者姓名 ：程序会提示输入作者姓名，然后遍历活动工作簿中的所有工作表，查找该作者的评论。只有指定作者输入的评论才会被添加到自定义集合中。
3. 添加评论到集合 ：为第一条评论分配一个键，然后将其余评论添加到集合中，放置在最后添加的评论之前。
4. 显示特定评论 ：如果集合中至少有一条评论，程序会显示带有特殊键参数标识的评论的文本消息框。
5. 打印评论文本 ：将集合中所有评论的文本打印到即时窗口。使用文本函数（ Mid 和 Len ）来获取评论的文本，不包含作者姓名。
6. 统计评论数量 ：通过 Count 属性返回工作簿中的评论总数和自定义集合中的评论总数。

以下是示例代码：

Sub GetComments()
    Dim colNo