写下这个题目，可能会让很多朋友疑惑，笔者先埋下一个关子，很快我会让您知道这个标题的寓意这份礼物送给现在想学习类知识或曾经学过但因为各种原因没有“修成正果”的朋友，我期望的结 果是这篇文章后，您可以在类模块中像在标准模块中写代码一样熟练，我也期望不至于太乏味而使您没有 耐心看完整篇文章，或者说期望您学习的过程是轻松愉悦的，但愿我可以做到文章构划为8部分：1•什么是类2•为什么要学习类3•类的预备知识4•创建类属性5•创建类方法6•创建类事件7.—个完整的类实例8•未完的结尾什么是类在我们身边，相同或相似的物品无处不在，从生活用品，到工业产品，……通常它们都是由同一个 可以称为“模具”的东西生产出来理解类，一般要先从对象谈起，但由于从不同的角度，有不同的理解，从而也有不同的关于类的定 义，本文不去探讨一个完整并且公认的类概念，在这一部分后，只要你有一个基本的判断并且在遇到时知 道是类就可以了在上面的这个例子中，一个“模具”就是一个“类”，而由它生产出的每一个产品，就 是一个“对象”看下面的VBA语句：Dim tx1 As Textbox不用解释它的意思吧，这里我们用到一个类Textbox定义了一个对象tx1，再来看：Dim txl As TextboxDim tx2 As Textbox又定义了一个对象tx2，如果你不嫌烦，我还可以继续下去。
对象增加了，但As后的Textbox没有 变，它可以无限制的使用下去类是一个隐者，上面Textbox是VBA已经给我们准备好的一个类，我们无法知道VBA是怎么准备的 （它的真身被隐藏了），但我们可以知道对象txl怎么用VBA把对对象的使用划分为三种，属性、方法 和事件（后面预备知识我们再提）然而，Textbox是一个类，仍然不是本文要说的类，因为它是VBA已经给我们准备好了的，我们要做 的，只是知道如何使用它而已本文要介绍的，是利用VBA已经给我们提供的资源，来构建我们自己的类, 姑且可称之为自定义类这需要在VBE下，通过插入类模块，然后向类模块中写入代码来完成这就是你 常常听说的类，本文的主题就是这个包含代码的模块！通过这个模块，可以提供给我们一个和VBA提供给 我们的诸如Textbox功能性质完全相同的类，然后，再由我们自己象使用Textbox 一样使用！类是一个隐者，她把自己藏在所有模块的最后，甚至在多数情况，她从不出场现在，她挂着神秘 的微笑，向你走来，你要拒绝吗为什么要学习类模块类通常被认为是学习VBA的难点之一，之所以如此，因为相对于制造一个标准模块或用户窗体，我 们可以找到的类的学习资源少之又少，甚至很多VB的书籍也只有缪缪字语（在后面的预备知识，我们再提 另一个重要的原因）。
从技术角度上看，类的构建，不象窗体，VBA的类也不象有些语言提供了可视的设 计界面，感性上那样直接，隐者！她是不可视的设计，所有的构建都是通过在类模块中写代码来实现的1•学习是一种兴趣的追求俗语云：学的千千万，用的有几何？又曰：书到用时方恨少林语堂先生将做学问划分为三重境界，第二重说“为伊消得人憔悴，衣带渐宽终不悔”，大多数朋 友，包括本人，都不是专业程序员，学习程序只是一种兴趣和爱好，就好象有人喜欢修炼网游一样，对喜 欢程序的人，不断地学习和提高，也是一种追求优秀的态度，并且乐意享受这个追求的过程模块、控件、 链接库和类构成软件工程开发的四大技术，而类技术是控件和链接库技术的基础，我们不得不学2•类有什么用如你前面看到的我们使用Textbox类，类可以创建大量性质相近的对象，减轻我们的程序量，简洁 代码并提高效率类定义后，在其它模块中使用时，我们就可以暂时忘记或不必考虑它内部复杂的细节，让我们变得 轻松，VBA虽然不能真正封装类的形式，但在这里，我们可以封装它的概念这并不是类的全部好处，其它的，留着朋友们用的时候慢慢体会吧类挂着神秘的微笑，已经走到你的大门口，开门迎接她吧，你还等什么？类的预备知识广义上讲，所有VBA的知识，包括语句、函数以及为我们提供的标准类甚至第三方的资源都可以在 类中被使用。
本文无法也不准备逐一探讨，这里只说一些最密切最基本的，但即使这样，笔者仍然不能把 这些点的知识都写到，甚至因为对问题解释清晰或符合逻辑的需要，采用非规范的表述，对专门问题的全 面理解，请读者注意参考有关标准帮助文档并加以甄别1•从构建者的角度理解对象上一回我们提到，类被认为是VBA难点还有一个原因，这就是我们的思想！ VBA提供了大量的现成的 类，我们几乎不再需要去构建自己的类，这种结果，我们熟练地习惯了从使用者的角度去理解类一的实例： 对象，包括它的属性、方法和事件但是，现在你还要尝试做一个提供者，这和你作为使用者时的思考方 法是完全不同的，甚至是革命性的这种角色的转位是痛苦的，它需要你放弃你原本可以自豪地解释出对 象以及它的属性、方法、事件的定义，它们原本是如此逻辑地被划分，如此清晰，但现在，类模块中的一 切，彼此交织，你会发现它们都模糊了！是需要你忘掉所有固执的“招势”的时候了，当你心中无剑时， 转位也就完成了，隐者变得清晰了，她是如此美丽且慢，在你完全忘掉前，让我们最后再看一眼它们的 样子，呵呵，如果你实在忘不掉，你就提醒一下自己构建者的身份吧下面是通常情况下关于对象、属性、 方法、事件的基本表述，如果你以前没了解过，则应当找些资料先认真地理解它们，然后再按照上面的提 示去做。
对象是由类创建的一个实例，它是类的实体化对象的引用和操作被逻辑上划分为不重叠的三个部分：属性是指对象的特性以前面的Textbox为例，有长度，高度，框中显示的文字等等方法是指对象的某个操作如让Textbox成为当前的焦点（即光标移动到它上面）事件是指对象对外部动作的响应如我们用鼠标点击Textbox时，会产生一个Click事件，改变它 的值，则产生一个Change事件变量的作用域变量因为声明的位置和方式不同，从而有不同的作用域作用域是指变量在多大范围内能被代码识 别可以划分为过程级、模块级和全局变量过程级变量在过程中声明，这里过程指的是一个Sub或Function，也包括后面提到到属性过程通 常用Dim或Static进行声明Dim声明的变量，只在该过程执行时存在，过程结束，变量的值也就消失了 Static声明的变量称为静态变量，这个值在整个程序运行期间都存在模块级变量对整个模块的所有过程都有效，但对其它模块不可用可以在模块顶部声明声明模块 级变量用Private关键字和直接使用Dim没有区别但推荐使用Private进行声明，因为这样可以方便地 与后面的全局变量区分开来全局变量是对整个VBA工程的所有过程都有效的变量，使用Public关键字在标准模块的顶部来声明。
在类模块中，对变量作用域的理解要注意下面两点：（a） 由于类是生成对象的模具，每生成一个对象，相当于产生了一个副本，这个副本就是对象的“真 身”，副本间是相互独立的，从而，模块级的变量只作用于副本自身b） 类模块中使用Public关键字，只有当对象变量是这个类的实例时，才能被访问过程和函数变量、过程（Sub）、函数（Function）是我们在标准模块中使用的最基本的构件，在类摸块中，它 们仍然是最基本和重要的角色对于它们，你已经再熟悉不过，之所以前面还要花这么多文字，是为了突 出它的重要，也是想让你放松一下，哦，我花了很短的时间已经看了这么多（我也写了这么多！）过程和函数并无实质的区别，当需要返回值时，就使用Function，如果不需要返回任何结果，随你 的爱好，但这时推荐你使用Sub，因为这样更符合微软的本意过程（Sub）、函数（Function）也有作用 域，在标准模块中通过使用Private和Public关键字（可以省略Public关键字，因为它是默认的），可 以划分为模块级和全局级，以决定它是在当前的模块有效还是整个工程有效同变量一样，在类模块中使用Public关键字，只有当引用对象变量是这个类的实例时，才能被访问。
通用内部控件Control （s）VBA提供Control类作为一般内部控件类型，当使用Dim Ct As Control声明了一个变量后，就可以将任何控件赋给该变量，而不管具体的类型，因为在类的使用通常是处 理大量相近的对象，所以这种特性非常有用在实际使用时，我们多是通过容器控件的Controls属性来返 回一个Control的集合对象Dim Ct As ControlFor Each Ct InIf TypeName（Ct） = "CommandButton" Then MsgBoxNext上面这段代码可以遍历窗体的所有控件并报告找到的命令按钮集合 CollectionCollection是我们在使用类时最常用到的对象一个Collection对象代表一组相关的项目，虽然它 的成员并不被强制要求是同一类型的的，但请记住，这通常并不能给我们带来额外的方便，相反，我们通 常是用来收集同一类型的数据建立集合的方法和建立其它对象一样，如：Dim col As New Collection集合建立后，可以使用Add方法添加成员，用Remove方法删除成员，用Item方法从集合中返回特 定成员Private Sub CommandButtonl_Click()Dim col As New CollectionDim i%Dim ct As ControlFor Each ct InIf Left, 7) = "TextBox" Then ctNext ctFor i = To 1 Step -1MsgBox "下面删除成员"& (i).NameiNext iEnd Sub上面的代码先将窗体上所有的TextBox加入到集合中，然后再删除掉。
Count属性返回集合的成员数 量，Remove方法后面的参数是集合成员的索引号成员的索引号通常是按照加入的顺序自然编号，从1开 始，但可以在加入时使用Add方法的参数进行改变Add方法的完整语法是：item[, key][, before][ after]item必需的任意类型的表达式，指定要添加到集合中的成员key可选的唯一字符串表达式，指定可以使用的键字符串，代替位置索引来访问集合中的成员before/after可选的表达式，指定集合中的相对位置下面语句向集合增加一个对象TextBox1，并定义该成员的关键字为tx1TextBox1, "tx1"然后，下面两句都可以向集合中增加一个TextBox2，并把它放在成员TextBox 1的前面TextBox2,,TextBox2, , "tx1"第一句中，因为只有一个成员，所以也是索引号使用事件的WithEvents变量WithEvents不是一个单独的语句，为了使用对象的事件，需要在声明该对象时使用WithEvents关键 字例如：Dim WithEvents app As Application将上面的语句写入ThisWorkBook的模块，可以看到在通用框中出现了一个变量app：此主题相关图片如下:在通用框选择app后，左边的声明框便会显示app的事件。
此主题相关图片如下：需要注意的是，使用WithEvents只是声明了对象变量，而并不实际生成对象，为了生成真实的对象， 你仍然需要在声明后向生成其它对象一样，使用Set语句进行指定此外，WithEvents变量不能是通用类 变量如Object，而必须指定类名，也不能把WithEvents变量声明为As New不能在标准模块中使用With Events.初识类模块现在，请打开你的VBE，主菜单-插入-类模块插入了一个类模块，也就建立了一个类类模块的名字就是类的名字你现在看到的，她的名字叫 “类1”，这是VBA按她姐妹排行给她取的的，是的，VBA —贯如此，你早就熟悉了这种规则，现在，在标 准模块或其它模块中输入Dim -As的时候，提示框中她已经出现了但我知道，有件事你正耿耿于怀，“类 1”，太没个性了，想改成自己要的名字吧很容易，和你改标准模块的名字一样，打开属性窗口，看到了 吧，第一行就是她的名字，随你的意愿修改吧此主题相关图片如下：你或许已经注意到，在名字下面，只有一个属性：Instancing，其值也只有两个选项：Private和P ublicNotCreatable事实上，你完全可以忽略这个Instancing，就象你完全忽略条件编译指令一样，因 为在VBA中我们几乎用不到它们，而只需维持她的默认值即可。
至少我是这样认为的，但我给不了您充足 的理由，而只是个人的一种狭隘经历既然提到了，就简单说明一下：Instancing属性决定该“类”在其它工程中是否可以被使用我们知道，标准模块中的Public过程, 可以保存在宏工作簿甚至直接被另一工作簿的工程调用，但类中的代码是不可分割的整体，所以必须整体 决定是否允许外用当Instancing属性设为Private （默认）时，不允许其它工程访问当设置为Publi cNotCreatable时，只有在自己的工程创建了该类的对象时，其它工程才允许使用这个对象，注意，仅仅 是在本工程中创建的对象，而不能用她在其它工程中创建对象隐者已经来到你的身边，透过薄薄的面纱，你似乎已看到她神秘的微笑站起身来，走过去吧！创建类属性让我们想一下作为类的使用者时，我们是如何操作对象的属性的，对象属性的操作不外乎读和写两 种当我们要给对象的某个属性赋值时，我们会：= ”abc”当我们要读取对象的属性时，S=现在，看看作为类的提供者需要怎样做我们将“类1”改名为“MyClass”并为它创建一个名称为x的字符型属性1•使用Public变量创建类属性在类模块中写下行代码：是的，就这么简单，通常情况下，只需要这么简单使用Property过程创建类属性Private s$Public Property Get x() As Stringx = sEnd PropertyPublic Property Let x(ByVal c As String)s = cEnd Property我们可以省去上面默认的Public。
但看上去还是有点麻烦哦，不仅需要两个公共过程，而且还要一 个辅助的私有变量s和一个参数c在类模块中，Property过程把对属性的读写分开了，说一下Property 过程的工作机制，当标准模块中的代码读取对象的属性时，便会触发存在的Property Get过程，或者说P roperty Get过程提供了属性的读功能，同样，Property Let过程提供了写属性这样，上面的两个过程 (当然在模块中没有先后的要求)，可以只有一个，或者虽然两个都有，但却不全是Public，从而提供出 去的属性是只读或只写(呵呵，没见过只写哈)仅仅是为了提供只读或只写的属性，代码就从一行变成 了七行？！这样的理由，你不会信服，VBA中的类通常是提供给我们自己使用的！如果它确实是只读的， 我们自觉地去只读就是了！我们使用Property过程还有其它理由，最基本的一条，我们可以利用这个“过 程”来做我们想做的事看一看：End Property这里我们只是简单的利用了一下，更多的在后面你会看到此外，谁会保证有一天你不使用VB给别 人提供类呢，这个技术可是通用的提供一段标准模块的测试代码，来看看我们上面构建的类属性，你自 己试试吧。
Sub aTest()Dim me As New MyClass"123"End Sub就象我们给普通变量和对象变量赋值的方式不同一样，对象变量是使用Set赋值的对“对象”属性，VBA提供了 Property Set来代替构建“普通”属性使用的Property Let来看一段代码：Private tx As ObjectProperty Get x() As ObjectSet x = txEnd PropertyProperty Set x(ByVal o As Object)Set tx = o和前面的比较一下，除了多一个Set，实在没有什么不同告诉你一个小秘诀，你可以按照Function去记住Property Get的用法，按照Sub去记住Property Let /Set属性的初始值我们常常希望，当一个对象建立的时候，它的某些属性会被自动赋予一个初始值，这样，对具有最 常见的属性值的对象可以减少重复性的赋值工作这需要借助于类的构建函数来完成在类模块代码窗口的“通用”框中点击向下的小三角箭头，选择“Class”，右面声明框中可以看到 两个选项，“Initialize”和“Terminate"，我们对它们应该不陌生，很多对象都有这两个事件，Initi alize事件当对象建立时发生‘Terminate事件在对象对释放时发生。
由于类是静态存在的，它并不是真正 的对象，所以在类模块中，它们通常被称为构建函数和析构函数，或构建过程和析构过程对它们的理解 和你在对象中的用法并没有什么不同当一个对象被建立时，构建函数将被首先执行，同样，当对象释放 后，将执行析构函数下面建立MyClass，属性x初始值为” 0001 ”的全部测试代码：［类模块MyClass的代码］Option ExplicitPrivate s$Public Property Get x() As Stringx = ss = cEnd PropertyPrivate Sub Class_Initialize()s = "0001"End Sub［标准模块1的代码］Option ExplicitSub aTest()Dim me As New MyClassEnd Sub隐者为你揭开了第一层面纱，你隐约已看到她美丽的面厐，虽然还不是很清晰，但你知道，早晚会 的创建类方法放松一下，请拿出你家的紫砂壶，泡上一壶好茶，听我给你将类的方法的故事，你的茶品完了，我 的故事也差不多就讲完了1.构建类的方法其实就是在类模块中写公共的Sub和Function现在我们给前面提到的MyClass创建一个方法PutlntoActiveCell,功能是将x属性值写入活动单元 格。
Public x$Sub PutIntoActiveCell()ActiveCell = xEnd Sub在标准模块中用下面的代码测试一下：Sub aTest()Dim mc As New MyClass=abcEnd Sub这是本回要告诉你的全部吗？你还没有开始品茶吧？就这样了结束？这是最重要和基本的，但却不 是全部你是否有一种感觉，但你不能清楚地说出来？端起你可爱的茶杯，品一口茶，我们继续 类的方法环境借用广为众知的一个名词“数据环境”，虽然不准确，但我实在想不出更好的称谓来代替，姑且这 么叫吧稍后你就会知道它的含义类可以象VBA提供给我们的很多标准类一样风光无限，所有的程序设计者都在工程中使用它，但更 多时候，我们所构建的类只在特定的环境下被使用，类的方法环境是指包括类所在工程的其它成员在内的, 可以调用的资源的集合工作簿、工作表、窗体或其它，在类模块中，你可以象在标准模块中一样操作它 们，千万不要因为换成了类模块而产生任何疑虑，作为类的创建者，你要让类模块中的代码象你在标准模 块中一样亲近它们，只要你认为必要脱离了方法环境的、谨小慎微的、封闭的类实在没有什么意义如 果你预期方法环境在运行时可能会有变化，你要事先预知它们并象在标准模块中一样使用恰当的措施，比 如你不能确定运行时活动工作表的名称（但你确定届时会是一个工作表），你可以使用ActiveSheet。
我反复说“和标准模块一样”，就是想告诉你在类模块中创建方法时，对工程中其它成员的操作， 和你已经熟悉的标准模块中的方式的实在没有什么不同，这一原则适用于类模块中所有代码（也许叫代码 环境更准确些），而不仅仅是构建方法的代码现在，你知道了，你刚才的感觉到的是开放的方法环境是的，以后你会更深地体会到，作为好的 提供者，开放的思维有多重要方法的兄弟一成员事件类方法的执行需要在代码中以显性的方式指定，象上面的，有时候，当最终操作者触发类对象成员（属性）的某个事件，需要在事件发生时产生一系列的操作，这时，我们要运用成员事件成员事件和方 法都是类提供的一系列代码的操作，倆兄弟的区别在于，成员事件无法也不必再由代码显性调用我们来看一个具有普遍意义的事例［重要例］窗体 UserForml 上有 5 个 CommandButton 控件（名称分别为默认 CommandButton 1- CommandButton5）和1个TextBox控件（名称为TextBoxl）要求当各个CommandButton控件被点击时，它的按钮文字(Caption)会写入 TextBox1如果不用类，我们需要为5个CommandButton控件分别写5个相同的Click事件代码。
如Private Sub CommandButton l_Click()TextBoxl = CommandButtonEnd Sub下面是用类的成员事件方法的代码：'类模块Cmds的代码Option ExplicitPublic WithEvents cmd As CommandButtonPrivate Sub cmd_Click()End Sub'窗体UserForml的代码Option ExplicitDim co As New CollectionPrivate Sub UserForm Initialize()Dim myc As CmdsFor i = 1 To 5Set myc = New CmdsSet = ("CommandButton" & i)mycNext iSet myc = NothingEnd Sub仔细玩味上例的每一行代码，直至品完你壶中的茶呵呵，因为它实在很有用最后提一下Friend 关键字，虽然在VBA中几乎没有什么用，但如果有一天你要制作ActiveX部件，可能会用到它之所以要 有Friend关键字，是因为类的私有部分在类模块外是不可见的，但有时却需要从外面访问这些私有部分， 这时，可以使用Friend关键字使属性和方法成为"友元成员"。
友元成员在本工程中相当于Public，但 在工程外，它仍是Private 隐者为你揭去了第二层面纱，你几乎已看清她美丽的面庞，她带着甜蜜的微笑，似乎在问：什么才 是最美的期待？创建类事件在VBA中，因为我们既是提供者，也是使用者，所以通过良好地构建类的属性和方法，已可以满足 我们需要全部的要求我不再去解释这个观点，在本回后你自然会明白从这个意义上讲，创建类事件实 在没有必要唯一的遗憾是，我们没有体会到作为创建者的全部乐趣，标准类给我们提供了各种事件，当 然希望自己也可以做到，想象中这应当是一件激动人心的事，所以，追求快乐是创建类事件的重要理由， 另一个理由，前面已经提到回到前面我们的MyClass类，我们将x属性改名为Value属性，虽然对属性、方法以及事件的命名，VBA没有特别的限制，但建议您不要象我前面那样，随便取一个x，可能的话，要尽量和标准类的成员(属 性、方法以及事件)名称相一致现在我们为“使用”者提供一个“Change”事件，不错，我们给它取名为“Change”，而不再是随 意的“y”或其它(虽然也可以)，这样，我也不用解释这个事件的用意了，呵呵为了做到这一点，看看 我们应该做什么。
1.第一步：使用Event语句声明事件看一下类模块中现在的代码：Option ExplicitPublic Event Change(ByRef Cancel As Boolean)Private s$Public Property Get Value() As StringValue = sEnd PropertyPublic Property Let Value(ByVal c As String)s = cEnd PropertyPrivate Sub Class_Initialize()s = "abc" '初始值End Sub和前面的代码比较，多出了一句：Public Event Change(ByRef Cancel As Boolean)这就是Event语句，只此一句，我们已经为我们的类声明(我想使用“注册” 一词是不是更妥切) 了一个事件Change在看Event语句产生的效果前，先来看它的特性：(1) 为了声明事件，Event总是Public的，这好理解吧2) 事件可以不带参数，如Public Event Change()，也可以带参数，如我们上面给出的，但参数 不能是命名参数，可选参数或数组参数。
这里我只解释一下命名参数的含义我们知道，事件可以因特定 的用户事件而触发，也可以在代码中象方法一样指定执行，如下面的CommandButtonl_Click：Private Sub CommandButton2_Click()CommandButtonl_ClickEnd Sub但在调用对象的方法时我们通常喜欢这样的方式：Keyl:=Range("A2"), Orderl:=xlAscending这里Keyl、Order 1就是命名参数，命名参数的好处是我们不必记住它们的次序，调用时直接以名称 和冒号后加等于号指定它的值，但对事件的调用却不允许这样3) 事件没有返回值现在我们看一下，Event为我们做了什么建立一窗体UserForml,添加一个TextBox控件(名称为TextBoxl)，两个CommandButton控件(名 称为 CommandButtonl 和 CommandButton2)， CommandButtonl 的 Caption 设置为"赋值”，CommandButto n2的Caption设置为“读值”，窗体的代码如下：Option ExplicitDim WithEvents me As MyClassPrivate Sub CommandButtonl_Click()=TextBoxl '赋值End SubPrivate Sub CommandButton2_Click()MsgBox "me当前的值为"& '读值End SubPrivate Sub UserForm_Initialize()Set me = New MyClassEnd Sub上面这段代码实现的是，当点击CommandButtonl时便会将TextBoxl的值赋给me的Value,当点击 CommandButton2时便会显示me当前的Value值。
来运行一下这个窗体，先点击CommandButton2，此时显示“abe”，是me的初始值，然后在TextBo xl 输入 “123”，点击 CommandButtonl，再点击 CommandButton2，显示 “123”，说明赋值成功了呵呵，忘了，我们要做什么了！现在，请从UserForml代码窗口的“通用”框中选择me,哇！我们 声明的事件在右边“声明”框中已经出现了！此主题相关图片如下：我们定义这个事件是希望当me的值改变时响应的，现在就迫不及待地给它写一句代码吧：Private Sub mc_Change(ByRef Cancel As Boolean)If MsgBox("要改变 me 的值吗？"，vbYesNo) = vbNo Then Cancel = TrueEnd Sub上面这句代码你不会陌生吧，希望当用户选择了在改变时给用户一个确认的机会但是，现在点击CommandButtonl，却不会给你选择的机会，我们还有一步没有做第二步：使用RaiseEvent语句引发事件声明了事件后，我们要做的，便是找到所有与事件发生关联的地方，使用RaiseEvent语句引发事件, 这里引发的含义相当于Call，就是调用用户在事件中写的代码。
在本例中，只有一个地方，就是Propert y Let Value 过程中：Dim chyn As BooleanRaiseEvent Change(chyn)If chyn Then Exit Property通过传递回的chyn，决定是否执行后面的赋值语句下面就是添加了 RaiseEvents语句后的类模块 的代码:Option ExplicitPublic Event Change(ByRef Cancel As Boolean)Private s$Public Property Get Value() As StringValue = sEnd PropertyPublic Property Let Value(ByVal c As String)Dim chyn As BooleanRaiseEvent Change(chyn)If chyn Then Exit Propertys = cEnd PropertyPrivate Sub Class_Initialize()s = abcEnd Sub现在你可以去运行你的窗体了，我们要的效果应该是达到了吧为了便于你调试，下面给出窗体的全部代码：Option ExplicitDim WithEvents me As MyClassPrivate Sub CommandButtonl_Click()=TextBoxl '赋值End SubPrivate Sub CommandButton2_Click()MsgBox "mc当前的值为"& '读值End SubPrivate Sub UserForm_Initialize()Set mc = New MyClassEnd SubPrivate Sub mc_Change(ByRef Cancel As Boolean)If MsgBox("要改变 me 的值吗？"，vbYesNo) = vbNo Then Cancel = TrueEnd Sub当然，我们可以把上面mc_Change的代码要做的直接在Property Let Value过程的代码中，从而不 使用事件。
这就是在本回的开头说的事件的构建已经完成，说了这么多，其实你只要记住两步的标题就可以了到这里，关于VBA类最 基本最重要的部分已经给朋友们介绍完了余下的，留着您在未来的探索路上慢慢体会吧，也请您不要忘 了和大家分享您的喜悦隐者已向你展示了她所有的秘密，铅华去尽，只有美丽完整的类实例一个完整的类实例现在，提供一道简单的测试，帮大家回顾一下前面的知识建议您做一下，因为VBA是实践性的 题目要求：(一) 构建两个类：1. Student 类具有2个属性：(1) Name:可读写2) Id:可读写，但只能写一次格式为字母S加两位整数，如S01,S02…等2. Students 类具有1个属性，3个方法，2个事件：(1) Count属性：只读，返回Student成员数量2) Item方法：使用下标如(i)的方式调用，返回相应的Student成员，i可以是Student成员的自然顺序，也可以是Student成员的Id3) Add方法：增加Student成员当增加成员时，按顺序递增生成成员的Id，每个Id号只用一次，不因删除成员受影响4) Remove方法：删除Student成员5) BeforeAdd事件：在增加成员前作出响应，允许用户取消增加成员。
6) AfterRemove事件：在删除成员后响应二) 构建一个用户窗体测试前面的类：1. 窗体上包含四个CommandButton,分别完成如下功能：(1) 增加成员使用InputBox输入Student成员的Name，完成增加2) 删除成员使用InputBox输入Student成员的Id或自然序号，完成删除3) 显示学员总数使用MsgBox显示Student成员总数4) 查询学员使用InputBox输入Student成员的Id或自然序号，然后使用MsgBox显示相应Student成员的Name2. —个ListView，即时显示现有的所有Student成员3•事件处理(1) BeforeAdd事件，查找现有成员的Name是否有和要增加的成员的Name相同的，如有，则给出提示，让用户选择是否增加2) AfterRemove 事件，刷新 ListView 显示(三) 未尽之处自由发挥，假定用户操作规范，可不考虑错误处理。