vba 定义类_工作表中如何响应自定义事件

大家好，在上两讲中讲了类模块的调试行为，对于我们写代码人员来讲，要充分地理解每个知识点的概念，才能在实际工作中灵活运用，在我的第一套教程《VBA代码解决方案》中，我推出的是一种积木编程的思想，要求大家掌握每块积木的价值，这样才能在应用中量材使用，在之前的教程中，我没有把那些枯燥的概念作为讲解的重点，因为对于VBA而言，重在实用，对于一门实用的技能，你只要应用就行了。就好比我们每天都在开车，我们只要能把车从一个地方开到另外的地方就可以了，不必要知道汽车的内部有哪些传动系统、动力系统、电气系统。但是，如果我们作为一位老司机，有着几十年驾龄的老司机，如果只是能把车从一个地方开到另一个地方是远远不够的，掌握一下基本的汽车理论是理所当然的，这也是自身能力提高的一个标志吧。

我们的VBA也是如此，我说过，对于EXCEL而言，学到一定程度后，使用VBA是必然的。那么对于VBA而言，如果使用到了一定程度后，对于理论的研究也是必然的。到了这个阶段，就要把实用操作上升到理论层面了。这套《VBA类的解读及应用》就是这样一部侧重于理论的教程。通过这套教程的学习，读者要熟悉对象、属性、方法、事件、过程等一系列枯燥概念的含义，并在实践中加以利用。

我在之前的讲解中讲过事件的定义，就是对象的响应。也讲过了如何创建VBA事件，就是要定义一个类模块，在类模块中用Event来定义一个事件，然后编写代码，通过RaiseEvent来触发事件。在EXCEL中我们很多时候事件是应用在自定义的窗体中的，那么工作表作为对象，如何应用自定义事件呢？这讲和之后的几讲我们来深入地讲解这个问题，讲解过程中会通过一个实际的例子来说明。

一 自定义类，并在类中定义我们的事件。由于我们将要在工作表对象中应用这个类，为了更好的描述，我们把类定义为mysheet(这种命名是完全合乎我个人习惯的啊)。看下面的代码：

Public Event mySelectRan()

Public Event mySelectRanA(X As Integer, Y As Integer)

Private myHS As Integer '宿主myHS

Private myLS As Integer '宿主myHS

Public WithEvents mySht As Worksheet

Private Sub mySht_Change(ByVal Target As Range)

RaiseEvent mySelectRanA(myHS, myLS)

End Sub

Private Sub mySht_SelectionChange(ByVal Target As Range)

myHS = Target.Row

myLS = Target.Column

If Mid(Target.Address, 2, 1) = "A" Then

RaiseEvent mySelectRan

End If

End Sub

Public Property Get HS() As Integer '属性: 读

HS = myHS

End Property

Public Property Get LS() As Integer '属性: 读

LS = myLS

End Property

代码的截图(大家要注意这个截图中我勾画的重点)：

代码讲解：

1 这个类模块的功能是十分强大的，实现了属性规则的确定，自定义两个事件，声明了响应自定义事件的对象，给出了这个对象的两个方法等等。

2 Public Event mySelectRan()，这句代码定义了一个mySelectRan事件，关键字是Event，事件的名称是mySelectRan，这个事件没有参数的传递。

3 Public Event mySelectRanA(X As Integer, Y As Integer)，这句代码定义了一个mySelectRanA事件，这个事件名称是mySelectRanA，大家注意命名，根据我的命名习惯这个事件是上一个事件mySelectRan的衍生品，区别是这个事件有传递的参数X,Y。

4 Private myHS As Integer '宿主myHS

Private myLS As Integer '宿主myHS

上述两条语句是属性值宿主的变量声明，大家要注意这里的声明要是Private，即私有变量。这两个变量myHS和myLS将分别作为选择单元格后行列数的值传递。

5 Public WithEvents mySht As Worksheet，这条语句是对应用自定义事件对象的声明，关键字是WithEvents，对象的名称是mySht，对象的类型是Worksheet。也就是说，我们声明了一个变量，这个变量是对象变量，变量的类型是Worksheet，在过程中这个对象将是作为类事件，即上面讲过的mySelectRan和mySelectRanA事件的响应对象。

今日内容回向：

1 自定义事件的关键字是什么？

2 如何释放这个自定义事件？

3 自定义事件在哪里声明？

备注：本讲代码参考程序文件：VBA-CLASS(下51-56).xlsm

在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！众鸟高飞尽，孤云独去闲。相看两不厌，只有敬亭山。

学习VBA是个过程，这个过程是自己忍受孤独的过程。

"水善利万物而不争"，你看她绵绵密密，微处则无声，巨则汹涌。学习亦如此，把握现在，为达千里，需要默默耕耘，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里，待到暮年时去自欺欺人。要在当下，用一颗充满生机的心灵，努力提高自己，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。一杯茶，满也好，少也好，不要去计较；浓也好，淡也好，其中都有值得品的味道。去感悟真实的时间，静下心，多学习，积累福报。而不是天天混日子，也不是天天熬日子。一切众生的心都在变化，像时间一样，永远不会停留，把握现在就是福报。

VBA是利用Office实现自己小型办公自动化的有效手段，我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了五部VBA专门教程，回向给需要学习的朋友：

第一套：VBA代码解决方案 是VBA中各个知识点的讲解，覆盖绝大多数的VBA知识点，初学必备；

第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。

第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习。

第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。

第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，可以对促进自己理论的提高。

学习的过程也是修心的过程，修一个平静的心。在代码的世界中，心平静了，心情好了，身体自然而然就好。心静则正，内心里没有那么多邪知邪见，也就没有那么多妄想。在平静中积累自己的财富。我的上述教程是我多的经验的传递，大家可以根据1,3,2,5或者是4,3,2,5的顺序逐渐深入的逐渐学习。

最后将一阙词送给致力于VBA学习的朋友：

浮云掠过，暗语无声，

唯有清风，惊了梦中啼莺。

望星，疏移北斗，

奈将往事雁同行。

阡陌人，昏灯明暗，忍顾长亭。

多少VBA人，

暗夜中，悄声寻梦，盼却天明。

怎无凭！

分享成果，随喜正能量