【分享成果，随喜正能量】人活一世，再多名利繁华，若没有健康，一切便都是浮云。人无信则不立，结下更多善缘，问心无愧的人生更令人欢喜。。

《VBA中类的解读及应用》教程【10165646】是我推出的第五套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。

类，是非常抽象的，更具研究的价值。随着我们学习、应用VBA的深入，有必要理解这些抽象的理论知识。对象，类，过程，方法，属性，事件，接口，接口如何实现等等。掌握了这些理论，不仅对于VBA这种寄生语言的实质有所深入的理解，也对自然界的很多事物将同样有所感悟。目前，这套教程程序文件已经通过32位，64位两种office系统测试。

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：VBA类之监听工作表点击,完成数值累加

第五十四讲 在EXCEL工作表中响应自定义事件（4）

（接上讲）

7 工作表中自定义事件的实例讲解，自动累加的实现

大家好。我们继续在工作表中响应自定义事件的方法，这一讲我们仍是利用上一讲中提到的mysheet类来处理我们新的问题。新的问题是：当我们在A列单击时B列相应的单元格能自动根据A列的值加1。如下面的截图所示。

我们首先分析一下上述目的的实现思路：

首先我们要监听这个工作表，当单击时判断一下是否是A列的单元格，如果是，那么将触发一个自定义事件，这个自定义事件的过程就是让A列的值加上1。

思路有了，如何来完成这个思路呢？

8 实现自动累加的代码及代码讲解

我这里直接给出我的代码，这里的代码仍是写在了工作表的代码窗口，说明代码是这个工作表的私有代码：

Private WithEvents MyS As mysheet

Private Sub MyS_mySelectRan()

Cells(MyS.HS, MyS.LS + 1) = Cells(MyS.HS, MyS.LS) + 1

End Sub

Private Sub Worksheet_Activate()

Set MyS = New mysheet

Set MyS.mySht = Sheets("52")

End Sub

Private Sub Worksheet_Deactivate()

Set MyS = Nothing

End Sub

代码截图：

代码讲解：

1） Private WithEvents MyS As mysheet在代码的头部仍是有这样的声明语句，这个语句的作用在前讲已经详细地讲解过，有两个作用，一是类对象的声明，一是让对象可以关联到对象的事件。

2） Private Sub Worksheet_Activate()

Set MyS = New mysheet

Set MyS.mySht = Sheets("52")

End Sub

在这几句代码中我们把类赋给了肉身MyS，同时让这个对象关联到工作表，以便这个对象可以很好地执行监听。

3） Private Sub Worksheet_Deactivate()

Set MyS = Nothing

End Sub

类的肉身在工作表Deactivate时候就失去了生命。

4） Private Sub MyS_mySelectRan()

Cells(MyS.HS, MyS.LS + 1) = Cells(MyS.HS, MyS.LS) + 1

End Sub

这里是被触发的mySelectRan过程，这个过程中让B列单元格的值等于A列单元格的值加上1。这里我们再看看这里利用的方法，MyS.HS是类对象MyS的HS属性，这个时候的HS属性是读取，将执行类代码中的：

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

HS = myHS

End Property

也就说将宿主myHS的值传递给HS，那么宿主的值myHS是在什么时候取得的呢？对的，是在mySht_SelectionChange 事件中取得的。没有弄明白的朋友可以再回头看看类模块的代码。

由于mySelectRan事件的触发条件是：

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

RaiseEvent mySelectRan

End If

所以这个时候myLS=1，这样就实现了B列单元格的值等于A列单元格的值加1。

最后我们看看代码的执行过程：

当点击A列单元格时，B列自动地实现了相应A列的值加1.

今日内容回向：

1 如何理解类对象失去生命？

2 整个过程是如何实现监听的？

3 监听的过程如何实现事件的触发？

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

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】古之立大事者，不惟有超世之才，亦必有坚忍不拔之志。成功，从来不是一蹴而就的，而是历久弥新的坚持不懈，还有坚守一心的孤独前行。。