自定义事件带参数的触发过程

（接上讲）

这一讲我们先继续上一讲类模块代码的讲解：

6 Private Sub mySht_Change(ByVal Target As Range)

RaiseEvent mySelectRanA(myHS, myLS)

End Sub

这段代码是一个Change过程，这个也就是说当响应类对象的mySht发生改变时将要执行这个过程，这个过程的执行中会有一个参数传递进来，这个参数就是Target ，是一个按照值来传递的单元格。

在执行这个过程中会触发mySelectRanA事件。关键字是RaiseEvent，就是触发事件。触发这个事件的时候，同时会传递两个参数myHS, myLS。关于这个事件的详细讲解会在之后进行，我现在先把每个过程给大家讲一下。

7 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

这个过程和上一个过程相类似，是一个工作表发生改变时候将要执行的过程，这个过程中会有两个动作：

第一给宿主参数赋值myHS = Target.Row myLS = Target.Column。myHS和myLS是类属性的两个宿主，在这里当工作表发生改变时，给这两个宿主赋值，赋值的意义就是取得当前点击单元格的行数和列数。

第二触发mySelectRan事件。触发这个mySelectRan事件是有条件的，就是Mid(Target.Address, 2, 1) = "A"，这个条件如何理解呢？就是点击的是A列的单元格，由于Target.Address返回的单元格地址是一个绝对的引用，所以我们用的是Mid(Target.Address, 2, 1)，当然，这里的逻辑不是十分的严谨，当单击“AB”单元格时也会同样认为是A列的单元格，大家可以想一想有没有更好的方法，精确地返回A列，对的，只要再加上一个判断条件，判断一下第三个字符应该是“$”即可。触发这个事件是没有参数传递的。

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

HS = myHS

End Property

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

LS = myLS

End Property

上面的过程是一个属性值的读取过程，也就是将宿主的值传递给属性值。这个过程是比较容易理解的，不再多说了。

到这里，整个类模块的内容就讲解完成了，下面我们要让类模块发挥作用了。类的作用是什么呢？我们在之前的讲解中讲过，类是一个魂，是没有肉身的，只有具有了肉身即实例化之后，才能占用内存。那么类的魂是如何赋给肉身呢？

看我们的工作表代码，首先看工作表“51”的代码：

Private WithEvents MyS As mysheet

Private Sub MyS_mySelectRan()

MsgBox "你单击了A列单元格"

End Sub

Private Sub Worksheet_Activate()

Set MyS = New mysheet

Set MyS.mySht = Sheets("51")

End Sub

Private Sub Worksheet_Deactivate()

Set MyS = Nothing

End Sub

代码的截图：

代码讲解，大家要留意我上面代码过程中圈的重点：

1 代码是写在了工作表的代码中，是这个工作表的私有代码，所以每个过程都有标识Private Sub。

2 代码的头部即声明部分我给出了一个非常重要的声明：

Private WithEvents MyS As mysheet

这个声明是什么意义呢？我来给大家详细地分析。这里的关键字是WithEvents，这个关键字是说将要声明一个对象用来响应我们的mysheet类的事件，什么对象呢？就是MyS ，将这个对象声明为什么呢？要声明为mysheet类。大家要留意这种写法。

（待续，下一讲我们继续讲解）

今日内容回向：

1 触发事件的关键字是什么？

2 声明对象相应类事件的关键字是什么？

备注：本讲代码参考程序文件：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的顺序逐渐深入的逐渐学习。